;;;; Generated on 5/21/2019 at 13:37:09 (UTC+1).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%ILASLR %ILASLR %%ILATRANS %ILATRANS %%ILAUPLO %ILAUPLO
  %%ILAZLC %ILAZLC %%ILAZLR %ILAZLR %%IPARMQ %IPARMQ %%IZMAX1 %IZMAX1 %%LSAMEN
  %LSAMEN %%SBBCSD %SBBCSD %%SBDSDC %SBDSDC %%SBDSQR %SBDSQR %%SBDSVDX %SBDSVDX
  %%SCOMBSSQ %SCOMBSSQ %%SCSUM1 %SCSUM1 %%SDISNA %SDISNA %%SGBBRD %SGBBRD
  %%SGBCON %SGBCON %%SGBEQU %SGBEQU %%SGBEQUB %SGBEQUB %%SGBRFS %SGBRFS
  %%SGBRFSX %SGBRFSX %%SGBSV %SGBSV %%SGBSVX %SGBSVX %%SGBSVXX %SGBSVXX
  %%SGBTF2 %SGBTF2 %%SGBTRF %SGBTRF %%SGBTRS %SGBTRS %%SGEBAK %SGEBAK %%SGEBAL
  %SGEBAL %%SGEBD2 %SGEBD2 %%SGEBRD %SGEBRD %%SGECON %SGECON %%SGEEQU %SGEEQU
  %%SGEEQUB %SGEEQUB %%SGEES %SGEES %%SGEESX %SGEESX %%SGEEV %SGEEV %%SGEEVX
  %SGEEVX %%SGEHD2 %SGEHD2 %%SGEHRD %SGEHRD %%SGEJSV %SGEJSV %%SGELQ %SGELQ
  %%SGELQ2 %SGELQ2 %%SGELQF %SGELQF %%SGELQT %SGELQT %%SGELQT3 %SGELQT3 %%SGELS
  %SGELS %%SGELSD %SGELSD %%SGELSS %SGELSS %%SGELSY %SGELSY %%SGEMLQ %SGEMLQ
  %%SGEMLQT %SGEMLQT %%SGEMQR %SGEMQR %%SGEMQRT %SGEMQRT %%SGEQL2 %SGEQL2
  %%SGEQLF %SGEQLF %%SGEQP3 %SGEQP3 %%SGEQR %SGEQR %%SGEQR2 %SGEQR2 %%SGEQR2P
  %SGEQR2P %%SGEQRF %SGEQRF %%SGEQRFP %SGEQRFP %%SGEQRT %SGEQRT %%SGEQRT2
  %SGEQRT2 %%SGEQRT3 %SGEQRT3 %%SGERFS %SGERFS %%SGERFSX %SGERFSX %%SGERQ2
  %SGERQ2 %%SGERQF %SGERQF %%SGESC2 %SGESC2 %%SGESDD %SGESDD %%SGESV %SGESV
  %%SGESVD %SGESVD %%SGESVDQ %SGESVDQ %%SGESVDX %SGESVDX %%SGESVJ %SGESVJ
  %%SGESVX %SGESVX %%SGESVXX %SGESVXX %%SGETC2 %SGETC2 %%SGETF2 %SGETF2
  %%SGETRF %SGETRF %%SGETRF2 %SGETRF2 %%SGETRI %SGETRI %%SGETRS %SGETRS
  %%SGETSLS %SGETSLS %%SGGBAK %SGGBAK %%SGGBAL %SGGBAL %%SGGES %SGGES %%SGGES3
  %SGGES3 %%SGGESX %SGGESX %%SGGEV %SGGEV %%SGGEV3 %SGGEV3 %%SGGEVX %SGGEVX
  %%SGGGLM %SGGGLM %%SGGHD3 %SGGHD3 %%SGGHRD %SGGHRD %%SGGLSE %SGGLSE %%SGGQRF
  %SGGQRF %%SGGRQF %SGGRQF %%SGGSVD3 %SGGSVD3 %%SGGSVP3 %SGGSVP3 %%SGSVJ0
  %SGSVJ0 %%SGSVJ1 %SGSVJ1 %%SGTCON %SGTCON %%SGTRFS %SGTRFS %%SGTSV %SGTSV
  %%SGTSVX %SGTSVX %%SGTTRF %SGTTRF %%SGTTRS %SGTTRS %%SGTTS2 %SGTTS2 %%SHGEQZ
  %SHGEQZ %%SHSEIN %SHSEIN %%SHSEQR %SHSEQR %%SISNAN %SISNAN %%SLA_GBAMV
  %SLA_GBAMV %%SLA_GBRCOND %SLA_GBRCOND %%SLA_GBRFSX_EXTENDED
  %SLA_GBRFSX_EXTENDED %%SLA_GBRPVGRW %SLA_GBRPVGRW %%SLA_GEAMV %SLA_GEAMV
  %%SLA_GERCOND %SLA_GERCOND %%SLA_GERFSX_EXTENDED %SLA_GERFSX_EXTENDED
  %%SLA_GERPVGRW %SLA_GERPVGRW %%SLA_LIN_BERR %SLA_LIN_BERR %%SLA_PORCOND
  %SLA_PORCOND %%SLA_PORFSX_EXTENDED %SLA_PORFSX_EXTENDED %%SLA_PORPVGRW
  %SLA_PORPVGRW %%SLA_SYAMV %SLA_SYAMV %%SLA_SYRCOND %SLA_SYRCOND
  %%SLA_SYRFSX_EXTENDED %SLA_SYRFSX_EXTENDED %%SLA_SYRPVGRW %SLA_SYRPVGRW
  %%SLA_WWADDW %SLA_WWADDW %%SLABAD %SLABAD %%SLABRD %SLABRD %%SLACN2 %SLACN2
  %%SLACON %SLACON %%SLACPY %SLACPY %%SLADIV %SLADIV %%SLAE2 %SLAE2 %%SLAEBZ
  %SLAEBZ %%SLAED0 %SLAED0 %%SLAED1 %SLAED1 %%SLAED2 %SLAED2 %%SLAED3 %SLAED3
  %%SLAED4 %SLAED4 %%SLAED5 %SLAED5 %%SLAED6 %SLAED6 %%SLAED7 %SLAED7 %%SLAED8
  %SLAED8 %%SLAED9 %SLAED9 %%SLAEDA %SLAEDA %%SLAEIN %SLAEIN %%SLAEV2 %SLAEV2
  %%SLAEXC %SLAEXC %%SLAG2 %SLAG2 %%SLAG2D %SLAG2D %%SLAGS2 %SLAGS2 %%SLAGTF
  %SLAGTF %%SLAGTM %SLAGTM %%SLAGTS %SLAGTS %%SLAGV2 %SLAGV2 %%SLAHQR %SLAHQR
  %%SLAHR2 %SLAHR2 %%SLAIC1 %SLAIC1 %%SLAISNAN %SLAISNAN %%SLALN2 %SLALN2
  %%SLALS0 %SLALS0 %%SLALSA %SLALSA %%SLALSD %SLALSD %%SLAMRG %SLAMRG
  %%SLAMSWLQ %SLAMSWLQ %%SLAMTSQR %SLAMTSQR %%SLANEG %SLANEG %%SLANGB %SLANGB
  %%SLANGE %SLANGE %%SLANGT %SLANGT %%SLANHS %SLANHS %%SLANSB %SLANSB %%SLANSF
  %SLANSF %%SLANSP %SLANSP %%SLANST %SLANST %%SLANSY %SLANSY %%SLANTB %SLANTB
  %%SLANTP %SLANTP %%SLANTR %SLANTR %%SLANV2 %SLANV2 %%SLAPLL %SLAPLL %%SLAPMR
  %SLAPMR %%SLAPMT %SLAPMT %%SLAPY2 %SLAPY2 %%SLAPY3 %SLAPY3 %%SLAQGB %SLAQGB
  %%SLAQGE %SLAQGE %%SLAQP2 %SLAQP2 %%SLAQPS %SLAQPS %%SLAQR0 %SLAQR0 %%SLAQR1
  %SLAQR1 %%SLAQR2 %SLAQR2 %%SLAQR3 %SLAQR3 %%SLAQR4 %SLAQR4 %%SLAQR5 %SLAQR5
  %%SLAQSB %SLAQSB %%SLAQSP %SLAQSP %%SLAQSY %SLAQSY %%SLAQTR %SLAQTR %%SLAR1V
  %SLAR1V %%SLAR2V %SLAR2V %%SLARF %SLARF %%SLARFB %SLARFB %%SLARFG %SLARFG
  %%SLARFGP %SLARFGP %%SLARFT %SLARFT %%SLARFX %SLARFX %%SLARFY %SLARFY
  %%SLARGV %SLARGV %%SLARNV %SLARNV %%SLARRA %SLARRA %%SLARRB %SLARRB %%SLARRC
  %SLARRC %%SLARRD %SLARRD %%SLARRE %SLARRE %%SLARRF %SLARRF %%SLARRJ %SLARRJ
  %%SLARRK %SLARRK %%SLARRR %SLARRR %%SLARRV %SLARRV %%SLARSCL2 %SLARSCL2
  %%SLARTG %SLARTG %%SLARTGP %SLARTGP %%SLARTGS %SLARTGS %%SLARTV %SLARTV
  %%SLARUV %SLARUV %%SLARZ %SLARZ %%SLARZB %SLARZB %%SLARZT %SLARZT %%SLAS2
  %SLAS2 %%SLASCL %SLASCL %%SLASCL2 %SLASCL2 %%SLASD0 %SLASD0 %%SLASD1 %SLASD1
  %%SLASD2 %SLASD2 %%SLASD3 %SLASD3 %%SLASD4 %SLASD4 %%SLASD5 %SLASD5 %%SLASD6
  %SLASD6 %%SLASD7 %SLASD7 %%SLASD8 %SLASD8))

(CFFI:DEFCFUN ("ilaslr_" %%ILASLR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILASLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILASLR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11652 ':INT32) (N-REF11653 ':INT32)
                              (LDA-REF11655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11652 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11653 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11655 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11654 A))
      (%%ILASLR M-REF11652 N-REF11653 A-REF11654 LDA-REF11655))))

(CFFI:DEFCFUN ("ilatrans_" %%ILATRANS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (TRANS :STRING))

(COMMON-LISP:DEFUN %ILATRANS (TRANS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILATRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILATRANS TRANS))))

(CFFI:DEFCFUN ("ilauplo_" %%ILAUPLO :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (UPLO :STRING))

(COMMON-LISP:DEFUN %ILAUPLO (UPLO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAUPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAUPLO UPLO))))

(CFFI:DEFCFUN ("ilazlc_" %%ILAZLC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILAZLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAZLC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11658 ':INT32) (N-REF11659 ':INT32)
                              (LDA-REF11661 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11658 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11659 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11661 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11660 A))
      (%%ILAZLC M-REF11658 N-REF11659 A-REF11660 LDA-REF11661))))

(CFFI:DEFCFUN ("ilazlr_" %%ILAZLR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ILAZLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAZLR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11662 ':INT32) (N-REF11663 ':INT32)
                              (LDA-REF11665 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11662 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11663 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11665 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11664 A))
      (%%ILAZLR M-REF11662 N-REF11663 A-REF11664 LDA-REF11665))))

(CFFI:DEFCFUN ("iparmq_" %%IPARMQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (ISPEC :POINTER)
  (NAME :STRING)
  (OPTS :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %IPARMQ (ISPEC NAME OPTS N ILO IHI LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IPARMQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NAME)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING OPTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11666 ':INT32) (N-REF11669 ':INT32)
                              (ILO-REF11670 ':INT32) (IHI-REF11671 ':INT32)
                              (LWORK-REF11672 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11666 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11669 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11670 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11671 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11672 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%IPARMQ ISPEC-REF11666 NAME OPTS N-REF11669 ILO-REF11670 IHI-REF11671
                LWORK-REF11672))))

(CFFI:DEFCFUN ("izmax1_" %%IZMAX1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %IZMAX1 (N ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IZMAX1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11673 ':INT32) (INCX-REF11675 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11673 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11675 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF11674 ZX))
      (%%IZMAX1 N-REF11673 ZX-REF11674 INCX-REF11675))))

(CFFI:DEFCFUN ("lsamen_" %%LSAMEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (N :POINTER)
  (CA :STRING)
  (CB :STRING))

(COMMON-LISP:DEFUN %LSAMEN (N CA CB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%LSAMEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING CA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING CB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11676 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11676 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%LSAMEN N-REF11676 CA CB))))

(CFFI:DEFCFUN ("sbbcsd_" %%SBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (B11D :POINTER)
  (B11E :POINTER)
  (B12D :POINTER)
  (B12E :POINTER)
  (B21D :POINTER)
  (B21E :POINTER)
  (B22D :POINTER)
  (B22E :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SBBCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2
                    LDU2 V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D
                    B22E WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBBCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B11D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B11E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B12D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B12E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B21D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B21E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B22D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        B22E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11684 ':INT32) (P-REF11685 ':INT32)
                              (Q-REF11686 ':INT32) (LDU1-REF11690 ':INT32)
                              (LDU2-REF11692 ':INT32) (LDV1T-REF11694 ':INT32)
                              (LDV2T-REF11696 ':INT32) (LWORK-REF11706 ':INT32)
                              (INFO-REF11707 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11684 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF11685 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF11686 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF11690 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF11692 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF11694 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF11696 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11706 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11707 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF11687 THETA)
                                            (PHI-REF11688 PHI) (U1-REF11689 U1)
                                            (U2-REF11691 U2) (V1T-REF11693 V1T)
                                            (V2T-REF11695 V2T)
                                            (B11D-REF11697 B11D)
                                            (B11E-REF11698 B11E)
                                            (B12D-REF11699 B12D)
                                            (B12E-REF11700 B12E)
                                            (B21D-REF11701 B21D)
                                            (B21E-REF11702 B21E)
                                            (B22D-REF11703 B22D)
                                            (B22E-REF11704 B22E)
                                            (WORK-REF11705 WORK))
      (%%SBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF11684 P-REF11685
                Q-REF11686 THETA-REF11687 PHI-REF11688 U1-REF11689
                LDU1-REF11690 U2-REF11691 LDU2-REF11692 V1T-REF11693
                LDV1T-REF11694 V2T-REF11695 LDV2T-REF11696 B11D-REF11697
                B11E-REF11698 B12D-REF11699 B12E-REF11700 B21D-REF11701
                B21E-REF11702 B22D-REF11703 B22E-REF11704 WORK-REF11705
                LWORK-REF11706 INFO-REF11707))))

(CFFI:DEFCFUN ("sbdsdc_" %%SBDSDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (COMPQ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (Q :POINTER)
  (IQ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SBDSDC
                   (UPLO COMPQ N D E U LDU VT LDVT Q IQ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBDSDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11710 ':INT32) (LDU-REF11714 ':INT32)
                              (LDVT-REF11716 ':INT32) (INFO-REF11721 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11710 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11714 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF11716 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11721 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11711 D) (E-REF11712 E)
                                            (U-REF11713 U) (VT-REF11715 VT)
                                            (Q-REF11717 Q) (IQ-REF11718 IQ)
                                            (WORK-REF11719 WORK)
                                            (IWORK-REF11720 IWORK))
      (%%SBDSDC UPLO COMPQ N-REF11710 D-REF11711 E-REF11712 U-REF11713
                LDU-REF11714 VT-REF11715 LDVT-REF11716 Q-REF11717 IQ-REF11718
                WORK-REF11719 IWORK-REF11720 INFO-REF11721))))

(CFFI:DEFCFUN ("sbdsqr_" %%SBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SBDSQR
                   (UPLO N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBDSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11723 ':INT32) (NCVT-REF11724 ':INT32)
                              (NRU-REF11725 ':INT32) (NCC-REF11726 ':INT32)
                              (LDVT-REF11730 ':INT32) (LDU-REF11732 ':INT32)
                              (LDC-REF11734 ':INT32) (INFO-REF11736 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11723 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF11724 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF11725 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF11726 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF11730 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11732 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11734 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11736 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11727 D) (E-REF11728 E)
                                            (VT-REF11729 VT) (U-REF11731 U)
                                            (C-REF11733 C) (WORK-REF11735 WORK))
      (%%SBDSQR UPLO N-REF11723 NCVT-REF11724 NRU-REF11725 NCC-REF11726
                D-REF11727 E-REF11728 VT-REF11729 LDVT-REF11730 U-REF11731
                LDU-REF11732 C-REF11733 LDC-REF11734 WORK-REF11735
                INFO-REF11736))))

(CFFI:DEFCFUN ("sbdsvdx_" %%SBDSVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SBDSVDX
                   (UPLO JOBZ RANGE N D E VL VU IL IU NS S Z LDZ WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBDSVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11740 ':INT32) (VL-REF11743 ':FLOAT)
                              (VU-REF11744 ':FLOAT) (IL-REF11745 ':INT32)
                              (IU-REF11746 ':INT32) (NS-REF11747 ':INT32)
                              (LDZ-REF11750 ':INT32) (INFO-REF11753 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11740 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF11743 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF11744 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF11745 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF11746 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF11747 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11750 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11753 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11741 D) (E-REF11742 E)
                                            (S-REF11748 S) (Z-REF11749 Z)
                                            (WORK-REF11751 WORK)
                                            (IWORK-REF11752 IWORK))
      (%%SBDSVDX UPLO JOBZ RANGE N-REF11740 D-REF11741 E-REF11742 VL-REF11743
                 VU-REF11744 IL-REF11745 IU-REF11746 NS-REF11747 S-REF11748
                 Z-REF11749 LDZ-REF11750 WORK-REF11751 IWORK-REF11752
                 INFO-REF11753))))

(CFFI:DEFCFUN ("scombssq_" %%SCOMBSSQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (V1 :POINTER)
  (V2 :POINTER))

(COMMON-LISP:DEFUN %SCOMBSSQ (V1 V2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCOMBSSQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        V2))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF11754 V1) (V2-REF11755 V2))
      (%%SCOMBSSQ V1-REF11754 V2-REF11755))))

(CFFI:DEFCFUN ("scsum1_" %%SCSUM1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SCSUM1 (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCSUM1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11756 ':INT32) (INCX-REF11758 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11756 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11758 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11757 CX))
      (%%SCSUM1 N-REF11756 CX-REF11757 INCX-REF11758))))

(CFFI:DEFCFUN ("sdisna_" %%SDISNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (SEP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SDISNA (JOB M N D SEP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SDISNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11760 ':INT32) (N-REF11761 ':INT32)
                              (INFO-REF11764 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11760 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11761 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11764 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11762 D) (SEP-REF11763 SEP))
      (%%SDISNA JOB M-REF11760 N-REF11761 D-REF11762 SEP-REF11763
                INFO-REF11764))))

(CFFI:DEFCFUN ("sgbbrd_" %%SGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (NCC :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (PT :POINTER)
  (LDPT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBBRD
                   (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBBRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11766 ':INT32) (N-REF11767 ':INT32)
                              (NCC-REF11768 ':INT32) (KL-REF11769 ':INT32)
                              (KU-REF11770 ':INT32) (LDAB-REF11772 ':INT32)
                              (LDQ-REF11776 ':INT32) (LDPT-REF11778 ':INT32)
                              (LDC-REF11780 ':INT32) (INFO-REF11782 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11766 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11767 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF11768 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11769 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11770 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11772 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11776 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF11778 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11780 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11782 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11771 AB) (D-REF11773 D)
                                            (E-REF11774 E) (Q-REF11775 Q)
                                            (PT-REF11777 PT) (C-REF11779 C)
                                            (WORK-REF11781 WORK))
      (%%SGBBRD VECT M-REF11766 N-REF11767 NCC-REF11768 KL-REF11769 KU-REF11770
                AB-REF11771 LDAB-REF11772 D-REF11773 E-REF11774 Q-REF11775
                LDQ-REF11776 PT-REF11777 LDPT-REF11778 C-REF11779 LDC-REF11780
                WORK-REF11781 INFO-REF11782))))

(CFFI:DEFCFUN ("sgbcon_" %%SGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBCON
                   (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11784 ':INT32) (KL-REF11785 ':INT32)
                              (KU-REF11786 ':INT32) (LDAB-REF11788 ':INT32)
                              (ANORM-REF11790 ':FLOAT) (RCOND-REF11791 ':FLOAT)
                              (INFO-REF11794 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11784 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11785 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11786 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11788 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF11790 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11791 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11794 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11787 AB)
                                            (IPIV-REF11789 IPIV)
                                            (WORK-REF11792 WORK)
                                            (IWORK-REF11793 IWORK))
      (%%SGBCON NORM N-REF11784 KL-REF11785 KU-REF11786 AB-REF11787
                LDAB-REF11788 IPIV-REF11789 ANORM-REF11790 RCOND-REF11791
                WORK-REF11792 IWORK-REF11793 INFO-REF11794))))

(CFFI:DEFCFUN ("sgbequ_" %%SGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBEQU (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11795 ':INT32) (N-REF11796 ':INT32)
                              (KL-REF11797 ':INT32) (KU-REF11798 ':INT32)
                              (LDAB-REF11800 ':INT32) (ROWCND-REF11803 ':FLOAT)
                              (COLCND-REF11804 ':FLOAT) (AMAX-REF11805 ':FLOAT)
                              (INFO-REF11806 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11795 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11796 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11797 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11798 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11800 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11803 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11804 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11805 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11806 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11799 AB) (R-REF11801 R)
                                            (C-REF11802 C))
      (%%SGBEQU M-REF11795 N-REF11796 KL-REF11797 KU-REF11798 AB-REF11799
                LDAB-REF11800 R-REF11801 C-REF11802 ROWCND-REF11803
                COLCND-REF11804 AMAX-REF11805 INFO-REF11806))))

(CFFI:DEFCFUN ("sgbequb_" %%SGBEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBEQUB (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11807 ':INT32) (N-REF11808 ':INT32)
                              (KL-REF11809 ':INT32) (KU-REF11810 ':INT32)
                              (LDAB-REF11812 ':INT32) (ROWCND-REF11815 ':FLOAT)
                              (COLCND-REF11816 ':FLOAT) (AMAX-REF11817 ':FLOAT)
                              (INFO-REF11818 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11807 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11808 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11809 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11810 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11812 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11815 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11816 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11817 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11818 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11811 AB) (R-REF11813 R)
                                            (C-REF11814 C))
      (%%SGBEQUB M-REF11807 N-REF11808 KL-REF11809 KU-REF11810 AB-REF11811
                 LDAB-REF11812 R-REF11813 C-REF11814 ROWCND-REF11815
                 COLCND-REF11816 AMAX-REF11817 INFO-REF11818))))

(CFFI:DEFCFUN ("sgbrfs_" %%SGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBRFS
                   (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR
                    BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11820 ':INT32) (KL-REF11821 ':INT32)
                              (KU-REF11822 ':INT32) (NRHS-REF11823 ':INT32)
                              (LDAB-REF11825 ':INT32) (LDAFB-REF11827 ':INT32)
                              (LDB-REF11830 ':INT32) (LDX-REF11832 ':INT32)
                              (INFO-REF11837 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11820 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11821 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11822 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11823 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11825 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11827 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11830 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11832 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11837 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11824 AB) (AFB-REF11826 AFB)
                                            (IPIV-REF11828 IPIV) (B-REF11829 B)
                                            (X-REF11831 X) (FERR-REF11833 FERR)
                                            (BERR-REF11834 BERR)
                                            (WORK-REF11835 WORK)
                                            (IWORK-REF11836 IWORK))
      (%%SGBRFS TRANS N-REF11820 KL-REF11821 KU-REF11822 NRHS-REF11823
                AB-REF11824 LDAB-REF11825 AFB-REF11826 LDAFB-REF11827
                IPIV-REF11828 B-REF11829 LDB-REF11830 X-REF11831 LDX-REF11832
                FERR-REF11833 BERR-REF11834 WORK-REF11835 IWORK-REF11836
                INFO-REF11837))))

(CFFI:DEFCFUN ("sgbrfsx_" %%SGBRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBRFSX
                   (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X
                    LDX RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11840 ':INT32) (KL-REF11841 ':INT32)
                              (KU-REF11842 ':INT32) (NRHS-REF11843 ':INT32)
                              (LDAB-REF11845 ':INT32) (LDAFB-REF11847 ':INT32)
                              (LDB-REF11852 ':INT32) (LDX-REF11854 ':INT32)
                              (RCOND-REF11855 ':FLOAT)
                              (N_ERR_BNDS-REF11857 ':INT32)
                              (NPARAMS-REF11860 ':INT32)
                              (INFO-REF11864 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11840 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11841 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11842 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11843 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11845 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11847 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11852 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11854 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11855 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF11857 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF11860 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11864 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11844 AB) (AFB-REF11846 AFB)
                                            (IPIV-REF11848 IPIV) (R-REF11849 R)
                                            (C-REF11850 C) (B-REF11851 B)
                                            (X-REF11853 X) (BERR-REF11856 BERR)
                                            (ERR_BNDS_NORM-REF11858
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF11859
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF11861 PARAMS)
                                            (WORK-REF11862 WORK)
                                            (IWORK-REF11863 IWORK))
      (%%SGBRFSX TRANS EQUED N-REF11840 KL-REF11841 KU-REF11842 NRHS-REF11843
                 AB-REF11844 LDAB-REF11845 AFB-REF11846 LDAFB-REF11847
                 IPIV-REF11848 R-REF11849 C-REF11850 B-REF11851 LDB-REF11852
                 X-REF11853 LDX-REF11854 RCOND-REF11855 BERR-REF11856
                 N_ERR_BNDS-REF11857 ERR_BNDS_NORM-REF11858
                 ERR_BNDS_COMP-REF11859 NPARAMS-REF11860 PARAMS-REF11861
                 WORK-REF11862 IWORK-REF11863 INFO-REF11864))))

(CFFI:DEFCFUN ("sgbsv_" %%SGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11865 ':INT32) (KL-REF11866 ':INT32)
                              (KU-REF11867 ':INT32) (NRHS-REF11868 ':INT32)
                              (LDAB-REF11870 ':INT32) (LDB-REF11873 ':INT32)
                              (INFO-REF11874 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11865 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11866 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11867 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11868 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11870 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11873 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11874 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11869 AB)
                                            (IPIV-REF11871 IPIV) (B-REF11872 B))
      (%%SGBSV N-REF11865 KL-REF11866 KU-REF11867 NRHS-REF11868 AB-REF11869
               LDAB-REF11870 IPIV-REF11871 B-REF11872 LDB-REF11873
               INFO-REF11874))))

(CFFI:DEFCFUN ("sgbsvx_" %%SGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBSVX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11877 ':INT32) (KL-REF11878 ':INT32)
                              (KU-REF11879 ':INT32) (NRHS-REF11880 ':INT32)
                              (LDAB-REF11882 ':INT32) (LDAFB-REF11884 ':INT32)
                              (LDB-REF11890 ':INT32) (LDX-REF11892 ':INT32)
                              (RCOND-REF11893 ':FLOAT) (INFO-REF11898 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11878 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11879 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11880 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11882 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11884 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11890 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11892 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11893 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11898 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11881 AB) (AFB-REF11883 AFB)
                                            (IPIV-REF11885 IPIV) (R-REF11887 R)
                                            (C-REF11888 C) (B-REF11889 B)
                                            (X-REF11891 X) (FERR-REF11894 FERR)
                                            (BERR-REF11895 BERR)
                                            (WORK-REF11896 WORK)
                                            (IWORK-REF11897 IWORK))
      (%%SGBSVX FACT TRANS N-REF11877 KL-REF11878 KU-REF11879 NRHS-REF11880
                AB-REF11881 LDAB-REF11882 AFB-REF11883 LDAFB-REF11884
                IPIV-REF11885 EQUED R-REF11887 C-REF11888 B-REF11889
                LDB-REF11890 X-REF11891 LDX-REF11892 RCOND-REF11893
                FERR-REF11894 BERR-REF11895 WORK-REF11896 IWORK-REF11897
                INFO-REF11898))))

(CFFI:DEFCFUN ("sgbsvxx_" %%SGBSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBSVXX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM
                    ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11901 ':INT32) (KL-REF11902 ':INT32)
                              (KU-REF11903 ':INT32) (NRHS-REF11904 ':INT32)
                              (LDAB-REF11906 ':INT32) (LDAFB-REF11908 ':INT32)
                              (LDB-REF11914 ':INT32) (LDX-REF11916 ':INT32)
                              (RCOND-REF11917 ':FLOAT)
                              (RPVGRW-REF11918 ':FLOAT)
                              (N_ERR_BNDS-REF11920 ':INT32)
                              (NPARAMS-REF11923 ':INT32)
                              (INFO-REF11927 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11901 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11902 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11903 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11904 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11906 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11908 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11914 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11916 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11917 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF11918 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF11920 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF11923 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11927 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11905 AB) (AFB-REF11907 AFB)
                                            (IPIV-REF11909 IPIV) (R-REF11911 R)
                                            (C-REF11912 C) (B-REF11913 B)
                                            (X-REF11915 X) (BERR-REF11919 BERR)
                                            (ERR_BNDS_NORM-REF11921
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF11922
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF11924 PARAMS)
                                            (WORK-REF11925 WORK)
                                            (IWORK-REF11926 IWORK))
      (%%SGBSVXX FACT TRANS N-REF11901 KL-REF11902 KU-REF11903 NRHS-REF11904
                 AB-REF11905 LDAB-REF11906 AFB-REF11907 LDAFB-REF11908
                 IPIV-REF11909 EQUED R-REF11911 C-REF11912 B-REF11913
                 LDB-REF11914 X-REF11915 LDX-REF11916 RCOND-REF11917
                 RPVGRW-REF11918 BERR-REF11919 N_ERR_BNDS-REF11920
                 ERR_BNDS_NORM-REF11921 ERR_BNDS_COMP-REF11922 NPARAMS-REF11923
                 PARAMS-REF11924 WORK-REF11925 IWORK-REF11926 INFO-REF11927))))

(CFFI:DEFCFUN ("sgbtf2_" %%SGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBTF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11928 ':INT32) (N-REF11929 ':INT32)
                              (KL-REF11930 ':INT32) (KU-REF11931 ':INT32)
                              (LDAB-REF11933 ':INT32) (INFO-REF11935 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11928 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11929 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11930 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11931 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11933 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11935 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11932 AB)
                                            (IPIV-REF11934 IPIV))
      (%%SGBTF2 M-REF11928 N-REF11929 KL-REF11930 KU-REF11931 AB-REF11932
                LDAB-REF11933 IPIV-REF11934 INFO-REF11935))))

(CFFI:DEFCFUN ("sgbtrf_" %%SGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11936 ':INT32) (N-REF11937 ':INT32)
                              (KL-REF11938 ':INT32) (KU-REF11939 ':INT32)
                              (LDAB-REF11941 ':INT32) (INFO-REF11943 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11936 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11937 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11938 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11939 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11941 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11943 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11940 AB)
                                            (IPIV-REF11942 IPIV))
      (%%SGBTRF M-REF11936 N-REF11937 KL-REF11938 KU-REF11939 AB-REF11940
                LDAB-REF11941 IPIV-REF11942 INFO-REF11943))))

(CFFI:DEFCFUN ("sgbtrs_" %%SGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11945 ':INT32) (KL-REF11946 ':INT32)
                              (KU-REF11947 ':INT32) (NRHS-REF11948 ':INT32)
                              (LDAB-REF11950 ':INT32) (LDB-REF11953 ':INT32)
                              (INFO-REF11954 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11945 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11946 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11947 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11948 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11950 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11953 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11954 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11949 AB)
                                            (IPIV-REF11951 IPIV) (B-REF11952 B))
      (%%SGBTRS TRANS N-REF11945 KL-REF11946 KU-REF11947 NRHS-REF11948
                AB-REF11949 LDAB-REF11950 IPIV-REF11951 B-REF11952 LDB-REF11953
                INFO-REF11954))))

(CFFI:DEFCFUN ("sgebak_" %%SGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11957 ':INT32) (ILO-REF11958 ':INT32)
                              (IHI-REF11959 ':INT32) (M-REF11961 ':INT32)
                              (LDV-REF11963 ':INT32) (INFO-REF11964 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11957 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11958 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11959 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11961 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11963 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11964 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF11960 SCALE)
                                            (V-REF11962 V))
      (%%SGEBAK JOB SIDE N-REF11957 ILO-REF11958 IHI-REF11959 SCALE-REF11960
                M-REF11961 V-REF11962 LDV-REF11963 INFO-REF11964))))

(CFFI:DEFCFUN ("sgebal_" %%SGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11966 ':INT32) (LDA-REF11968 ':INT32)
                              (ILO-REF11969 ':INT32) (IHI-REF11970 ':INT32)
                              (INFO-REF11972 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11966 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11968 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11969 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11970 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11972 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11967 A)
                                            (SCALE-REF11971 SCALE))
      (%%SGEBAL JOB N-REF11966 A-REF11967 LDA-REF11968 ILO-REF11969
                IHI-REF11970 SCALE-REF11971 INFO-REF11972))))

(CFFI:DEFCFUN ("sgebd2_" %%SGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11973 ':INT32) (N-REF11974 ':INT32)
                              (LDA-REF11976 ':INT32) (INFO-REF11982 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11973 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11974 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11976 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11982 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11975 A) (D-REF11977 D)
                                            (E-REF11978 E) (TAUQ-REF11979 TAUQ)
                                            (TAUP-REF11980 TAUP)
                                            (WORK-REF11981 WORK))
      (%%SGEBD2 M-REF11973 N-REF11974 A-REF11975 LDA-REF11976 D-REF11977
                E-REF11978 TAUQ-REF11979 TAUP-REF11980 WORK-REF11981
                INFO-REF11982))))

(CFFI:DEFCFUN ("sgebrd_" %%SGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11983 ':INT32) (N-REF11984 ':INT32)
                              (LDA-REF11986 ':INT32) (LWORK-REF11992 ':INT32)
                              (INFO-REF11993 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11983 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11984 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11986 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11992 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11993 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11985 A) (D-REF11987 D)
                                            (E-REF11988 E) (TAUQ-REF11989 TAUQ)
                                            (TAUP-REF11990 TAUP)
                                            (WORK-REF11991 WORK))
      (%%SGEBRD M-REF11983 N-REF11984 A-REF11985 LDA-REF11986 D-REF11987
                E-REF11988 TAUQ-REF11989 TAUP-REF11990 WORK-REF11991
                LWORK-REF11992 INFO-REF11993))))

(CFFI:DEFCFUN ("sgecon_" %%SGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGECON (NORM N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11995 ':INT32) (LDA-REF11997 ':INT32)
                              (ANORM-REF11998 ':FLOAT) (RCOND-REF11999 ':FLOAT)
                              (INFO-REF12002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11995 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11997 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF11998 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11999 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12002 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11996 A) (WORK-REF12000 WORK)
                                            (IWORK-REF12001 IWORK))
      (%%SGECON NORM N-REF11995 A-REF11996 LDA-REF11997 ANORM-REF11998
                RCOND-REF11999 WORK-REF12000 IWORK-REF12001 INFO-REF12002))))

(CFFI:DEFCFUN ("sgeequ_" %%SGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12003 ':INT32) (N-REF12004 ':INT32)
                              (LDA-REF12006 ':INT32) (ROWCND-REF12009 ':FLOAT)
                              (COLCND-REF12010 ':FLOAT) (AMAX-REF12011 ':FLOAT)
                              (INFO-REF12012 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12003 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12006 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF12009 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF12010 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF12011 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12012 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12005 A) (R-REF12007 R)
                                            (C-REF12008 C))
      (%%SGEEQU M-REF12003 N-REF12004 A-REF12005 LDA-REF12006 R-REF12007
                C-REF12008 ROWCND-REF12009 COLCND-REF12010 AMAX-REF12011
                INFO-REF12012))))

(CFFI:DEFCFUN ("sgeequb_" %%SGEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12013 ':INT32) (N-REF12014 ':INT32)
                              (LDA-REF12016 ':INT32) (ROWCND-REF12019 ':FLOAT)
                              (COLCND-REF12020 ':FLOAT) (AMAX-REF12021 ':FLOAT)
                              (INFO-REF12022 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12013 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12014 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12016 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF12019 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF12020 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF12021 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12022 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12015 A) (R-REF12017 R)
                                            (C-REF12018 C))
      (%%SGEEQUB M-REF12013 N-REF12014 A-REF12015 LDA-REF12016 R-REF12017
                 C-REF12018 ROWCND-REF12019 COLCND-REF12020 AMAX-REF12021
                 INFO-REF12022))))

(CFFI:DEFCFUN ("sgees_" %%SGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEES
                   (JOBVS SORT SELECT N A LDA SDIM WR WI VS LDVS WORK LWORK
                    BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF12025 ':INT32) (N-REF12026 ':INT32)
                              (LDA-REF12028 ':INT32) (SDIM-REF12029 ':INT32)
                              (LDVS-REF12033 ':INT32) (LWORK-REF12035 ':INT32)
                              (INFO-REF12037 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF12025 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12026 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12028 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12029 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF12033 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12035 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12037 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12027 A) (WR-REF12030 WR)
                                            (WI-REF12031 WI) (VS-REF12032 VS)
                                            (WORK-REF12034 WORK)
                                            (BWORK-REF12036 BWORK))
      (%%SGEES JOBVS SORT SELECT-REF12025 N-REF12026 A-REF12027 LDA-REF12028
               SDIM-REF12029 WR-REF12030 WI-REF12031 VS-REF12032 LDVS-REF12033
               WORK-REF12034 LWORK-REF12035 BWORK-REF12036 INFO-REF12037))))

(CFFI:DEFCFUN ("sgeesx_" %%SGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEESX
                   (JOBVS SORT SELECT SENSE N A LDA SDIM WR WI VS LDVS RCONDE
                    RCONDV WORK LWORK IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF12040 ':INT32) (N-REF12042 ':INT32)
                              (LDA-REF12044 ':INT32) (SDIM-REF12045 ':INT32)
                              (LDVS-REF12049 ':INT32) (RCONDE-REF12050 ':FLOAT)
                              (RCONDV-REF12051 ':FLOAT)
                              (LWORK-REF12053 ':INT32)
                              (LIWORK-REF12055 ':INT32) (INFO-REF12057 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF12040 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12042 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12044 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12045 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF12049 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF12050 :FLOAT) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF12051 :FLOAT) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12053 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12055 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12057 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12043 A) (WR-REF12046 WR)
                                            (WI-REF12047 WI) (VS-REF12048 VS)
                                            (WORK-REF12052 WORK)
                                            (IWORK-REF12054 IWORK)
                                            (BWORK-REF12056 BWORK))
      (%%SGEESX JOBVS SORT SELECT-REF12040 SENSE N-REF12042 A-REF12043
                LDA-REF12044 SDIM-REF12045 WR-REF12046 WI-REF12047 VS-REF12048
                LDVS-REF12049 RCONDE-REF12050 RCONDV-REF12051 WORK-REF12052
                LWORK-REF12053 IWORK-REF12054 LIWORK-REF12055 BWORK-REF12056
                INFO-REF12057))))

(CFFI:DEFCFUN ("sgeev_" %%SGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEEV
                   (JOBVL JOBVR N A LDA WR WI VL LDVL VR LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12060 ':INT32) (LDA-REF12062 ':INT32)
                              (LDVL-REF12066 ':INT32) (LDVR-REF12068 ':INT32)
                              (LWORK-REF12070 ':INT32) (INFO-REF12071 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12060 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12062 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12066 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12068 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12070 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12071 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12061 A) (WR-REF12063 WR)
                                            (WI-REF12064 WI) (VL-REF12065 VL)
                                            (VR-REF12067 VR)
                                            (WORK-REF12069 WORK))
      (%%SGEEV JOBVL JOBVR N-REF12060 A-REF12061 LDA-REF12062 WR-REF12063
               WI-REF12064 VL-REF12065 LDVL-REF12066 VR-REF12067 LDVR-REF12068
               WORK-REF12069 LWORK-REF12070 INFO-REF12071))))

(CFFI:DEFCFUN ("sgeevx_" %%SGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (ABNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA WR WI VL LDVL VR LDVR ILO
                    IHI SCALE ABNRM RCONDE RCONDV WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12076 ':INT32) (LDA-REF12078 ':INT32)
                              (LDVL-REF12082 ':INT32) (LDVR-REF12084 ':INT32)
                              (ILO-REF12085 ':INT32) (IHI-REF12086 ':INT32)
                              (ABNRM-REF12088 ':FLOAT) (LWORK-REF12092 ':INT32)
                              (INFO-REF12094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12076 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12078 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12082 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12084 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12085 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12086 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF12088 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12092 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12094 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12077 A) (WR-REF12079 WR)
                                            (WI-REF12080 WI) (VL-REF12081 VL)
                                            (VR-REF12083 VR)
                                            (SCALE-REF12087 SCALE)
                                            (RCONDE-REF12089 RCONDE)
                                            (RCONDV-REF12090 RCONDV)
                                            (WORK-REF12091 WORK)
                                            (IWORK-REF12093 IWORK))
      (%%SGEEVX BALANC JOBVL JOBVR SENSE N-REF12076 A-REF12077 LDA-REF12078
                WR-REF12079 WI-REF12080 VL-REF12081 LDVL-REF12082 VR-REF12083
                LDVR-REF12084 ILO-REF12085 IHI-REF12086 SCALE-REF12087
                ABNRM-REF12088 RCONDE-REF12089 RCONDV-REF12090 WORK-REF12091
                LWORK-REF12092 IWORK-REF12093 INFO-REF12094))))

(CFFI:DEFCFUN ("sgehd2_" %%SGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEHD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12095 ':INT32) (ILO-REF12096 ':INT32)
                              (IHI-REF12097 ':INT32) (LDA-REF12099 ':INT32)
                              (INFO-REF12102 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12095 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12096 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12097 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12099 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12102 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12098 A) (TAU-REF12100 TAU)
                                            (WORK-REF12101 WORK))
      (%%SGEHD2 N-REF12095 ILO-REF12096 IHI-REF12097 A-REF12098 LDA-REF12099
                TAU-REF12100 WORK-REF12101 INFO-REF12102))))

(CFFI:DEFCFUN ("sgehrd_" %%SGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEHRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12103 ':INT32) (ILO-REF12104 ':INT32)
                              (IHI-REF12105 ':INT32) (LDA-REF12107 ':INT32)
                              (LWORK-REF12110 ':INT32) (INFO-REF12111 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12103 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12104 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12105 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12107 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12110 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12111 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12106 A) (TAU-REF12108 TAU)
                                            (WORK-REF12109 WORK))
      (%%SGEHRD N-REF12103 ILO-REF12104 IHI-REF12105 A-REF12106 LDA-REF12107
                TAU-REF12108 WORK-REF12109 LWORK-REF12110 INFO-REF12111))))

(CFFI:DEFCFUN ("sgejsv_" %%SGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBR :STRING)
  (JOBT :STRING)
  (JOBP :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEJSV
                   (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEJSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12118 ':INT32) (N-REF12119 ':INT32)
                              (LDA-REF12121 ':INT32) (LDU-REF12124 ':INT32)
                              (LDV-REF12126 ':INT32) (LWORK-REF12128 ':INT32)
                              (INFO-REF12130 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12118 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12119 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12121 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12124 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12126 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12128 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12130 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12120 A) (SVA-REF12122 SVA)
                                            (U-REF12123 U) (V-REF12125 V)
                                            (WORK-REF12127 WORK)
                                            (IWORK-REF12129 IWORK))
      (%%SGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF12118 N-REF12119 A-REF12120
                LDA-REF12121 SVA-REF12122 U-REF12123 LDU-REF12124 V-REF12125
                LDV-REF12126 WORK-REF12127 LWORK-REF12128 IWORK-REF12129
                INFO-REF12130))))

(CFFI:DEFCFUN ("sgelq_" %%SGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12131 ':INT32) (N-REF12132 ':INT32)
                              (LDA-REF12134 ':INT32) (TSIZE-REF12136 ':INT32)
                              (LWORK-REF12138 ':INT32) (INFO-REF12139 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12131 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12132 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12134 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12136 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12138 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12139 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12133 A) (T-REF12135 T)
                                            (WORK-REF12137 WORK))
      (%%SGELQ M-REF12131 N-REF12132 A-REF12133 LDA-REF12134 T-REF12135
               TSIZE-REF12136 WORK-REF12137 LWORK-REF12138 INFO-REF12139))))

(CFFI:DEFCFUN ("sgelq2_" %%SGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12140 ':INT32) (N-REF12141 ':INT32)
                              (LDA-REF12143 ':INT32) (INFO-REF12146 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12140 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12141 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12143 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12146 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12142 A) (TAU-REF12144 TAU)
                                            (WORK-REF12145 WORK))
      (%%SGELQ2 M-REF12140 N-REF12141 A-REF12142 LDA-REF12143 TAU-REF12144
                WORK-REF12145 INFO-REF12146))))

(CFFI:DEFCFUN ("sgelqf_" %%SGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12147 ':INT32) (N-REF12148 ':INT32)
                              (LDA-REF12150 ':INT32) (LWORK-REF12153 ':INT32)
                              (INFO-REF12154 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12147 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12148 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12150 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12153 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12154 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12149 A) (TAU-REF12151 TAU)
                                            (WORK-REF12152 WORK))
      (%%SGELQF M-REF12147 N-REF12148 A-REF12149 LDA-REF12150 TAU-REF12151
                WORK-REF12152 LWORK-REF12153 INFO-REF12154))))

(CFFI:DEFCFUN ("sgelqt_" %%SGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12155 ':INT32) (N-REF12156 ':INT32)
                              (MB-REF12157 ':INT32) (LDA-REF12159 ':INT32)
                              (LDT-REF12161 ':INT32) (INFO-REF12163 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12155 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12156 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF12157 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12159 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12161 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12163 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12158 A) (T-REF12160 T)
                                            (WORK-REF12162 WORK))
      (%%SGELQT M-REF12155 N-REF12156 MB-REF12157 A-REF12158 LDA-REF12159
                T-REF12160 LDT-REF12161 WORK-REF12162 INFO-REF12163))))

(CFFI:DEFCFUN ("sgelqt3_" %%SGELQT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12164 ':INT32) (N-REF12165 ':INT32)
                              (LDA-REF12167 ':INT32) (LDT-REF12169 ':INT32)
                              (INFO-REF12170 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12164 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12165 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12167 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12169 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12170 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12166 A) (T-REF12168 T))
      (%%SGELQT3 M-REF12164 N-REF12165 A-REF12166 LDA-REF12167 T-REF12168
                 LDT-REF12169 INFO-REF12170))))

(CFFI:DEFCFUN ("sgels_" %%SGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12172 ':INT32) (N-REF12173 ':INT32)
                              (NRHS-REF12174 ':INT32) (LDA-REF12176 ':INT32)
                              (LDB-REF12178 ':INT32) (LWORK-REF12180 ':INT32)
                              (INFO-REF12181 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12172 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12173 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12174 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12176 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12178 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12180 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12181 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12175 A) (B-REF12177 B)
                                            (WORK-REF12179 WORK))
      (%%SGELS TRANS M-REF12172 N-REF12173 NRHS-REF12174 A-REF12175
               LDA-REF12176 B-REF12177 LDB-REF12178 WORK-REF12179
               LWORK-REF12180 INFO-REF12181))))

(CFFI:DEFCFUN ("sgelsd_" %%SGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELSD
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELSD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12182 ':INT32) (N-REF12183 ':INT32)
                              (NRHS-REF12184 ':INT32) (LDA-REF12186 ':INT32)
                              (LDB-REF12188 ':INT32) (RCOND-REF12190 ':FLOAT)
                              (RANK-REF12191 ':INT32) (LWORK-REF12193 ':INT32)
                              (INFO-REF12195 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12182 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12183 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12184 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12186 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12188 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12190 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12191 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12193 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12195 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12185 A) (B-REF12187 B)
                                            (S-REF12189 S) (WORK-REF12192 WORK)
                                            (IWORK-REF12194 IWORK))
      (%%SGELSD M-REF12182 N-REF12183 NRHS-REF12184 A-REF12185 LDA-REF12186
                B-REF12187 LDB-REF12188 S-REF12189 RCOND-REF12190 RANK-REF12191
                WORK-REF12192 LWORK-REF12193 IWORK-REF12194 INFO-REF12195))))

(CFFI:DEFCFUN ("sgelss_" %%SGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELSS (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELSS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12196 ':INT32) (N-REF12197 ':INT32)
                              (NRHS-REF12198 ':INT32) (LDA-REF12200 ':INT32)
                              (LDB-REF12202 ':INT32) (RCOND-REF12204 ':FLOAT)
                              (RANK-REF12205 ':INT32) (LWORK-REF12207 ':INT32)
                              (INFO-REF12208 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12196 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12197 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12198 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12200 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12202 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12204 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12205 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12207 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12208 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12199 A) (B-REF12201 B)
                                            (S-REF12203 S) (WORK-REF12206 WORK))
      (%%SGELSS M-REF12196 N-REF12197 NRHS-REF12198 A-REF12199 LDA-REF12200
                B-REF12201 LDB-REF12202 S-REF12203 RCOND-REF12204 RANK-REF12205
                WORK-REF12206 LWORK-REF12207 INFO-REF12208))))

(CFFI:DEFCFUN ("sgelsy_" %%SGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (JPVT :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGELSY
                   (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELSY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12209 ':INT32) (N-REF12210 ':INT32)
                              (NRHS-REF12211 ':INT32) (LDA-REF12213 ':INT32)
                              (LDB-REF12215 ':INT32) (RCOND-REF12217 ':FLOAT)
                              (RANK-REF12218 ':INT32) (LWORK-REF12220 ':INT32)
                              (INFO-REF12221 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12209 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12210 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12211 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12213 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12215 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12217 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12218 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12220 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12221 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12212 A) (B-REF12214 B)
                                            (JPVT-REF12216 JPVT)
                                            (WORK-REF12219 WORK))
      (%%SGELSY M-REF12209 N-REF12210 NRHS-REF12211 A-REF12212 LDA-REF12213
                B-REF12214 LDB-REF12215 JPVT-REF12216 RCOND-REF12217
                RANK-REF12218 WORK-REF12219 LWORK-REF12220 INFO-REF12221))))

(CFFI:DEFCFUN ("sgemlq_" %%SGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEMLQ
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12224 ':INT32) (N-REF12225 ':INT32)
                              (K-REF12226 ':INT32) (LDA-REF12228 ':INT32)
                              (TSIZE-REF12230 ':INT32) (LDC-REF12232 ':INT32)
                              (LWORK-REF12234 ':INT32) (INFO-REF12235 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12224 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12225 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12226 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12228 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12230 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12232 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12234 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12235 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12227 A) (T-REF12229 T)
                                            (C-REF12231 C) (WORK-REF12233 WORK))
      (%%SGEMLQ SIDE TRANS M-REF12224 N-REF12225 K-REF12226 A-REF12227
                LDA-REF12228 T-REF12229 TSIZE-REF12230 C-REF12231 LDC-REF12232
                WORK-REF12233 LWORK-REF12234 INFO-REF12235))))

(CFFI:DEFCFUN ("sgemlqt_" %%SGEMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEMLQT (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12238 ':INT32) (N-REF12239 ':INT32)
                              (K-REF12240 ':INT32) (MB-REF12241 ':INT32)
                              (LDV-REF12243 ':INT32) (LDT-REF12245 ':INT32)
                              (LDC-REF12247 ':INT32) (INFO-REF12249 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12238 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12240 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF12241 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12243 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12245 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12247 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12249 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF12242 V) (T-REF12244 T)
                                            (C-REF12246 C) (WORK-REF12248 WORK))
      (%%SGEMLQT SIDE TRANS M-REF12238 N-REF12239 K-REF12240 MB-REF12241
                 V-REF12242 LDV-REF12243 T-REF12244 LDT-REF12245 C-REF12246
                 LDC-REF12247 WORK-REF12248 INFO-REF12249))))

(CFFI:DEFCFUN ("sgemqr_" %%SGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEMQR
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12252 ':INT32) (N-REF12253 ':INT32)
                              (K-REF12254 ':INT32) (LDA-REF12256 ':INT32)
                              (TSIZE-REF12258 ':INT32) (LDC-REF12260 ':INT32)
                              (LWORK-REF12262 ':INT32) (INFO-REF12263 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12252 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12253 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12254 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12256 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12258 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12260 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12262 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12263 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12255 A) (T-REF12257 T)
                                            (C-REF12259 C) (WORK-REF12261 WORK))
      (%%SGEMQR SIDE TRANS M-REF12252 N-REF12253 K-REF12254 A-REF12255
                LDA-REF12256 T-REF12257 TSIZE-REF12258 C-REF12259 LDC-REF12260
                WORK-REF12261 LWORK-REF12262 INFO-REF12263))))

(CFFI:DEFCFUN ("sgemqrt_" %%SGEMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEMQRT (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12266 ':INT32) (N-REF12267 ':INT32)
                              (K-REF12268 ':INT32) (NB-REF12269 ':INT32)
                              (LDV-REF12271 ':INT32) (LDT-REF12273 ':INT32)
                              (LDC-REF12275 ':INT32) (INFO-REF12277 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12266 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12267 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12268 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF12269 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12271 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12273 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12275 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12277 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF12270 V) (T-REF12272 T)
                                            (C-REF12274 C) (WORK-REF12276 WORK))
      (%%SGEMQRT SIDE TRANS M-REF12266 N-REF12267 K-REF12268 NB-REF12269
                 V-REF12270 LDV-REF12271 T-REF12272 LDT-REF12273 C-REF12274
                 LDC-REF12275 WORK-REF12276 INFO-REF12277))))

(CFFI:DEFCFUN ("sgeql2_" %%SGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12278 ':INT32) (N-REF12279 ':INT32)
                              (LDA-REF12281 ':INT32) (INFO-REF12284 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12278 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12279 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12281 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12284 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12280 A) (TAU-REF12282 TAU)
                                            (WORK-REF12283 WORK))
      (%%SGEQL2 M-REF12278 N-REF12279 A-REF12280 LDA-REF12281 TAU-REF12282
                WORK-REF12283 INFO-REF12284))))

(CFFI:DEFCFUN ("sgeqlf_" %%SGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQLF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12285 ':INT32) (N-REF12286 ':INT32)
                              (LDA-REF12288 ':INT32) (LWORK-REF12291 ':INT32)
                              (INFO-REF12292 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12285 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12288 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12291 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12292 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12287 A) (TAU-REF12289 TAU)
                                            (WORK-REF12290 WORK))
      (%%SGEQLF M-REF12285 N-REF12286 A-REF12287 LDA-REF12288 TAU-REF12289
                WORK-REF12290 LWORK-REF12291 INFO-REF12292))))

(CFFI:DEFCFUN ("sgeqp3_" %%SGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQP3 (M N A LDA JPVT TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQP3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12293 ':INT32) (N-REF12294 ':INT32)
                              (LDA-REF12296 ':INT32) (LWORK-REF12300 ':INT32)
                              (INFO-REF12301 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12293 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12294 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12296 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12300 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12301 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12295 A) (JPVT-REF12297 JPVT)
                                            (TAU-REF12298 TAU)
                                            (WORK-REF12299 WORK))
      (%%SGEQP3 M-REF12293 N-REF12294 A-REF12295 LDA-REF12296 JPVT-REF12297
                TAU-REF12298 WORK-REF12299 LWORK-REF12300 INFO-REF12301))))

(CFFI:DEFCFUN ("sgeqr_" %%SGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12302 ':INT32) (N-REF12303 ':INT32)
                              (LDA-REF12305 ':INT32) (TSIZE-REF12307 ':INT32)
                              (LWORK-REF12309 ':INT32) (INFO-REF12310 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12302 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12303 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12305 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12307 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12309 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12310 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12304 A) (T-REF12306 T)
                                            (WORK-REF12308 WORK))
      (%%SGEQR M-REF12302 N-REF12303 A-REF12304 LDA-REF12305 T-REF12306
               TSIZE-REF12307 WORK-REF12308 LWORK-REF12309 INFO-REF12310))))

(CFFI:DEFCFUN ("sgeqr2_" %%SGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12311 ':INT32) (N-REF12312 ':INT32)
                              (LDA-REF12314 ':INT32) (INFO-REF12317 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12311 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12312 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12314 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12317 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12313 A) (TAU-REF12315 TAU)
                                            (WORK-REF12316 WORK))
      (%%SGEQR2 M-REF12311 N-REF12312 A-REF12313 LDA-REF12314 TAU-REF12315
                WORK-REF12316 INFO-REF12317))))

(CFFI:DEFCFUN ("sgeqr2p_" %%SGEQR2P :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQR2P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12318 ':INT32) (N-REF12319 ':INT32)
                              (LDA-REF12321 ':INT32) (INFO-REF12324 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12318 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12319 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12321 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12324 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12320 A) (TAU-REF12322 TAU)
                                            (WORK-REF12323 WORK))
      (%%SGEQR2P M-REF12318 N-REF12319 A-REF12320 LDA-REF12321 TAU-REF12322
                 WORK-REF12323 INFO-REF12324))))

(CFFI:DEFCFUN ("sgeqrf_" %%SGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12325 ':INT32) (N-REF12326 ':INT32)
                              (LDA-REF12328 ':INT32) (LWORK-REF12331 ':INT32)
                              (INFO-REF12332 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12325 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12326 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12328 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12331 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12332 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12327 A) (TAU-REF12329 TAU)
                                            (WORK-REF12330 WORK))
      (%%SGEQRF M-REF12325 N-REF12326 A-REF12327 LDA-REF12328 TAU-REF12329
                WORK-REF12330 LWORK-REF12331 INFO-REF12332))))

(CFFI:DEFCFUN ("sgeqrfp_" %%SGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRFP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12333 ':INT32) (N-REF12334 ':INT32)
                              (LDA-REF12336 ':INT32) (LWORK-REF12339 ':INT32)
                              (INFO-REF12340 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12333 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12334 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12336 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12339 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12340 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12335 A) (TAU-REF12337 TAU)
                                            (WORK-REF12338 WORK))
      (%%SGEQRFP M-REF12333 N-REF12334 A-REF12335 LDA-REF12336 TAU-REF12337
                 WORK-REF12338 LWORK-REF12339 INFO-REF12340))))

(CFFI:DEFCFUN ("sgeqrt_" %%SGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12341 ':INT32) (N-REF12342 ':INT32)
                              (NB-REF12343 ':INT32) (LDA-REF12345 ':INT32)
                              (LDT-REF12347 ':INT32) (INFO-REF12349 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12341 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12342 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF12343 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12345 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12347 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12349 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12344 A) (T-REF12346 T)
                                            (WORK-REF12348 WORK))
      (%%SGEQRT M-REF12341 N-REF12342 NB-REF12343 A-REF12344 LDA-REF12345
                T-REF12346 LDT-REF12347 WORK-REF12348 INFO-REF12349))))

(CFFI:DEFCFUN ("sgeqrt2_" %%SGEQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12350 ':INT32) (N-REF12351 ':INT32)
                              (LDA-REF12353 ':INT32) (LDT-REF12355 ':INT32)
                              (INFO-REF12356 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12350 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12351 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12353 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12355 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12356 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12352 A) (T-REF12354 T))
      (%%SGEQRT2 M-REF12350 N-REF12351 A-REF12352 LDA-REF12353 T-REF12354
                 LDT-REF12355 INFO-REF12356))))

(CFFI:DEFCFUN ("sgeqrt3_" %%SGEQRT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12357 ':INT32) (N-REF12358 ':INT32)
                              (LDA-REF12360 ':INT32) (LDT-REF12362 ':INT32)
                              (INFO-REF12363 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12357 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12358 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12360 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12362 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12363 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12359 A) (T-REF12361 T))
      (%%SGEQRT3 M-REF12357 N-REF12358 A-REF12359 LDA-REF12360 T-REF12361
                 LDT-REF12362 INFO-REF12363))))

(CFFI:DEFCFUN ("sgerfs_" %%SGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGERFS
                   (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12365 ':INT32) (NRHS-REF12366 ':INT32)
                              (LDA-REF12368 ':INT32) (LDAF-REF12370 ':INT32)
                              (LDB-REF12373 ':INT32) (LDX-REF12375 ':INT32)
                              (INFO-REF12380 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12365 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12366 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12368 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12370 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12373 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12375 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12380 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12367 A) (AF-REF12369 AF)
                                            (IPIV-REF12371 IPIV) (B-REF12372 B)
                                            (X-REF12374 X) (FERR-REF12376 FERR)
                                            (BERR-REF12377 BERR)
                                            (WORK-REF12378 WORK)
                                            (IWORK-REF12379 IWORK))
      (%%SGERFS TRANS N-REF12365 NRHS-REF12366 A-REF12367 LDA-REF12368
                AF-REF12369 LDAF-REF12370 IPIV-REF12371 B-REF12372 LDB-REF12373
                X-REF12374 LDX-REF12375 FERR-REF12376 BERR-REF12377
                WORK-REF12378 IWORK-REF12379 INFO-REF12380))))

(CFFI:DEFCFUN ("sgerfsx_" %%SGERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGERFSX
                   (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12383 ':INT32) (NRHS-REF12384 ':INT32)
                              (LDA-REF12386 ':INT32) (LDAF-REF12388 ':INT32)
                              (LDB-REF12393 ':INT32) (LDX-REF12395 ':INT32)
                              (RCOND-REF12396 ':FLOAT)
                              (N_ERR_BNDS-REF12398 ':INT32)
                              (NPARAMS-REF12401 ':INT32)
                              (INFO-REF12405 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12383 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12384 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12386 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12388 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12393 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12395 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12396 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF12398 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF12401 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12405 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12385 A) (AF-REF12387 AF)
                                            (IPIV-REF12389 IPIV) (R-REF12390 R)
                                            (C-REF12391 C) (B-REF12392 B)
                                            (X-REF12394 X) (BERR-REF12397 BERR)
                                            (ERR_BNDS_NORM-REF12399
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF12400
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF12402 PARAMS)
                                            (WORK-REF12403 WORK)
                                            (IWORK-REF12404 IWORK))
      (%%SGERFSX TRANS EQUED N-REF12383 NRHS-REF12384 A-REF12385 LDA-REF12386
                 AF-REF12387 LDAF-REF12388 IPIV-REF12389 R-REF12390 C-REF12391
                 B-REF12392 LDB-REF12393 X-REF12394 LDX-REF12395 RCOND-REF12396
                 BERR-REF12397 N_ERR_BNDS-REF12398 ERR_BNDS_NORM-REF12399
                 ERR_BNDS_COMP-REF12400 NPARAMS-REF12401 PARAMS-REF12402
                 WORK-REF12403 IWORK-REF12404 INFO-REF12405))))

(CFFI:DEFCFUN ("sgerq2_" %%SGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12406 ':INT32) (N-REF12407 ':INT32)
                              (LDA-REF12409 ':INT32) (INFO-REF12412 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12406 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12407 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12409 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12412 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12408 A) (TAU-REF12410 TAU)
                                            (WORK-REF12411 WORK))
      (%%SGERQ2 M-REF12406 N-REF12407 A-REF12408 LDA-REF12409 TAU-REF12410
                WORK-REF12411 INFO-REF12412))))

(CFFI:DEFCFUN ("sgerqf_" %%SGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12413 ':INT32) (N-REF12414 ':INT32)
                              (LDA-REF12416 ':INT32) (LWORK-REF12419 ':INT32)
                              (INFO-REF12420 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12413 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12414 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12416 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12419 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12420 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12415 A) (TAU-REF12417 TAU)
                                            (WORK-REF12418 WORK))
      (%%SGERQF M-REF12413 N-REF12414 A-REF12415 LDA-REF12416 TAU-REF12417
                WORK-REF12418 LWORK-REF12419 INFO-REF12420))))

(CFFI:DEFCFUN ("sgesc2_" %%SGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RHS :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (SCALE :POINTER))

(COMMON-LISP:DEFUN %SGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12421 ':INT32) (LDA-REF12423 ':INT32)
                              (SCALE-REF12427 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12421 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12423 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF12427 :FLOAT) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12422 A) (RHS-REF12424 RHS)
                                            (IPIV-REF12425 IPIV)
                                            (JPIV-REF12426 JPIV))
      (%%SGESC2 N-REF12421 A-REF12422 LDA-REF12423 RHS-REF12424 IPIV-REF12425
                JPIV-REF12426 SCALE-REF12427))))

(CFFI:DEFCFUN ("sgesdd_" %%SGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESDD
                   (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESDD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12429 ':INT32) (N-REF12430 ':INT32)
                              (LDA-REF12432 ':INT32) (LDU-REF12435 ':INT32)
                              (LDVT-REF12437 ':INT32) (LWORK-REF12439 ':INT32)
                              (INFO-REF12441 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12429 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12430 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12432 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12435 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12437 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12439 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12441 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12431 A) (S-REF12433 S)
                                            (U-REF12434 U) (VT-REF12436 VT)
                                            (WORK-REF12438 WORK)
                                            (IWORK-REF12440 IWORK))
      (%%SGESDD JOBZ M-REF12429 N-REF12430 A-REF12431 LDA-REF12432 S-REF12433
                U-REF12434 LDU-REF12435 VT-REF12436 LDVT-REF12437 WORK-REF12438
                LWORK-REF12439 IWORK-REF12440 INFO-REF12441))))

(CFFI:DEFCFUN ("sgesv_" %%SGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12442 ':INT32) (NRHS-REF12443 ':INT32)
                              (LDA-REF12445 ':INT32) (LDB-REF12448 ':INT32)
                              (INFO-REF12449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12442 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12443 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12445 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12448 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12449 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12444 A) (IPIV-REF12446 IPIV)
                                            (B-REF12447 B))
      (%%SGESV N-REF12442 NRHS-REF12443 A-REF12444 LDA-REF12445 IPIV-REF12446
               B-REF12447 LDB-REF12448 INFO-REF12449))))

(CFFI:DEFCFUN ("sgesvd_" %%SGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVD
                   (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12452 ':INT32) (N-REF12453 ':INT32)
                              (LDA-REF12455 ':INT32) (LDU-REF12458 ':INT32)
                              (LDVT-REF12460 ':INT32) (LWORK-REF12462 ':INT32)
                              (INFO-REF12463 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12452 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12453 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12455 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12458 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12460 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12462 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12463 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12454 A) (S-REF12456 S)
                                            (U-REF12457 U) (VT-REF12459 VT)
                                            (WORK-REF12461 WORK))
      (%%SGESVD JOBU JOBVT M-REF12452 N-REF12453 A-REF12454 LDA-REF12455
                S-REF12456 U-REF12457 LDU-REF12458 VT-REF12459 LDVT-REF12460
                WORK-REF12461 LWORK-REF12462 INFO-REF12463))))

(CFFI:DEFCFUN ("sgesvdq_" %%SGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBP :STRING)
  (JOBR :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NUMRANK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVDQ
                   (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK
                    IWORK LIWORK WORK LWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12469 ':INT32) (N-REF12470 ':INT32)
                              (LDA-REF12472 ':INT32) (LDU-REF12475 ':INT32)
                              (LDV-REF12477 ':INT32) (NUMRANK-REF12478 ':INT32)
                              (LIWORK-REF12480 ':INT32)
                              (LWORK-REF12482 ':INT32)
                              (LRWORK-REF12484 ':INT32) (INFO-REF12485 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12469 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12470 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12472 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12475 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12477 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF12478 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12480 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12482 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF12484 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12485 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12471 A) (S-REF12473 S)
                                            (U-REF12474 U) (V-REF12476 V)
                                            (IWORK-REF12479 IWORK)
                                            (WORK-REF12481 WORK)
                                            (RWORK-REF12483 RWORK))
      (%%SGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF12469 N-REF12470 A-REF12471
                 LDA-REF12472 S-REF12473 U-REF12474 LDU-REF12475 V-REF12476
                 LDV-REF12477 NUMRANK-REF12478 IWORK-REF12479 LIWORK-REF12480
                 WORK-REF12481 LWORK-REF12482 RWORK-REF12483 LRWORK-REF12484
                 INFO-REF12485))))

(CFFI:DEFCFUN ("sgesvdx_" %%SGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (RANGE :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVDX
                   (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12489 ':INT32) (N-REF12490 ':INT32)
                              (LDA-REF12492 ':INT32) (VL-REF12493 ':FLOAT)
                              (VU-REF12494 ':FLOAT) (IL-REF12495 ':INT32)
                              (IU-REF12496 ':INT32) (NS-REF12497 ':INT32)
                              (LDU-REF12500 ':INT32) (LDVT-REF12502 ':INT32)
                              (LWORK-REF12504 ':INT32) (INFO-REF12506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12489 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12490 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12492 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF12493 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF12494 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF12495 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF12496 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF12497 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12500 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12502 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12504 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12491 A) (S-REF12498 S)
                                            (U-REF12499 U) (VT-REF12501 VT)
                                            (WORK-REF12503 WORK)
                                            (IWORK-REF12505 IWORK))
      (%%SGESVDX JOBU JOBVT RANGE M-REF12489 N-REF12490 A-REF12491 LDA-REF12492
                 VL-REF12493 VU-REF12494 IL-REF12495 IU-REF12496 NS-REF12497
                 S-REF12498 U-REF12499 LDU-REF12500 VT-REF12501 LDVT-REF12502
                 WORK-REF12503 LWORK-REF12504 IWORK-REF12505 INFO-REF12506))))

(CFFI:DEFCFUN ("sgesvj_" %%SGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVJ
                   (JOBA JOBU JOBV M N A LDA SVA MV V LDV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVJ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12510 ':INT32) (N-REF12511 ':INT32)
                              (LDA-REF12513 ':INT32) (MV-REF12515 ':INT32)
                              (LDV-REF12517 ':INT32) (LWORK-REF12519 ':INT32)
                              (INFO-REF12520 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12510 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12511 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12513 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12515 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12517 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12519 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12520 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12512 A) (SVA-REF12514 SVA)
                                            (V-REF12516 V) (WORK-REF12518 WORK))
      (%%SGESVJ JOBA JOBU JOBV M-REF12510 N-REF12511 A-REF12512 LDA-REF12513
                SVA-REF12514 MV-REF12515 V-REF12516 LDV-REF12517 WORK-REF12518
                LWORK-REF12519 INFO-REF12520))))

(CFFI:DEFCFUN ("sgesvx_" %%SGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12523 ':INT32) (NRHS-REF12524 ':INT32)
                              (LDA-REF12526 ':INT32) (LDAF-REF12528 ':INT32)
                              (LDB-REF12534 ':INT32) (LDX-REF12536 ':INT32)
                              (RCOND-REF12537 ':FLOAT) (INFO-REF12542 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12523 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12524 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12526 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12528 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12534 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12536 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12537 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12542 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12525 A) (AF-REF12527 AF)
                                            (IPIV-REF12529 IPIV) (R-REF12531 R)
                                            (C-REF12532 C) (B-REF12533 B)
                                            (X-REF12535 X) (FERR-REF12538 FERR)
                                            (BERR-REF12539 BERR)
                                            (WORK-REF12540 WORK)
                                            (IWORK-REF12541 IWORK))
      (%%SGESVX FACT TRANS N-REF12523 NRHS-REF12524 A-REF12525 LDA-REF12526
                AF-REF12527 LDAF-REF12528 IPIV-REF12529 EQUED R-REF12531
                C-REF12532 B-REF12533 LDB-REF12534 X-REF12535 LDX-REF12536
                RCOND-REF12537 FERR-REF12538 BERR-REF12539 WORK-REF12540
                IWORK-REF12541 INFO-REF12542))))

(CFFI:DEFCFUN ("sgesvxx_" %%SGESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGESVXX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12545 ':INT32) (NRHS-REF12546 ':INT32)
                              (LDA-REF12548 ':INT32) (LDAF-REF12550 ':INT32)
                              (LDB-REF12556 ':INT32) (LDX-REF12558 ':INT32)
                              (RCOND-REF12559 ':FLOAT)
                              (RPVGRW-REF12560 ':FLOAT)
                              (N_ERR_BNDS-REF12562 ':INT32)
                              (NPARAMS-REF12565 ':INT32)
                              (INFO-REF12569 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12545 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12546 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12548 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12550 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12556 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12558 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12559 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF12560 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF12562 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF12565 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12569 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12547 A) (AF-REF12549 AF)
                                            (IPIV-REF12551 IPIV) (R-REF12553 R)
                                            (C-REF12554 C) (B-REF12555 B)
                                            (X-REF12557 X) (BERR-REF12561 BERR)
                                            (ERR_BNDS_NORM-REF12563
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF12564
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF12566 PARAMS)
                                            (WORK-REF12567 WORK)
                                            (IWORK-REF12568 IWORK))
      (%%SGESVXX FACT TRANS N-REF12545 NRHS-REF12546 A-REF12547 LDA-REF12548
                 AF-REF12549 LDAF-REF12550 IPIV-REF12551 EQUED R-REF12553
                 C-REF12554 B-REF12555 LDB-REF12556 X-REF12557 LDX-REF12558
                 RCOND-REF12559 RPVGRW-REF12560 BERR-REF12561
                 N_ERR_BNDS-REF12562 ERR_BNDS_NORM-REF12563
                 ERR_BNDS_COMP-REF12564 NPARAMS-REF12565 PARAMS-REF12566
                 WORK-REF12567 IWORK-REF12568 INFO-REF12569))))

(CFFI:DEFCFUN ("sgetc2_" %%SGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETC2 (N A LDA IPIV JPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12570 ':INT32) (LDA-REF12572 ':INT32)
                              (INFO-REF12575 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12570 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12572 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12575 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12571 A) (IPIV-REF12573 IPIV)
                                            (JPIV-REF12574 JPIV))
      (%%SGETC2 N-REF12570 A-REF12571 LDA-REF12572 IPIV-REF12573 JPIV-REF12574
                INFO-REF12575))))

(CFFI:DEFCFUN ("sgetf2_" %%SGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12576 ':INT32) (N-REF12577 ':INT32)
                              (LDA-REF12579 ':INT32) (INFO-REF12581 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12576 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12577 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12579 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12581 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12578 A) (IPIV-REF12580 IPIV))
      (%%SGETF2 M-REF12576 N-REF12577 A-REF12578 LDA-REF12579 IPIV-REF12580
                INFO-REF12581))))

(CFFI:DEFCFUN ("sgetrf_" %%SGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12582 ':INT32) (N-REF12583 ':INT32)
                              (LDA-REF12585 ':INT32) (INFO-REF12587 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12582 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12583 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12585 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12587 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12584 A) (IPIV-REF12586 IPIV))
      (%%SGETRF M-REF12582 N-REF12583 A-REF12584 LDA-REF12585 IPIV-REF12586
                INFO-REF12587))))

(CFFI:DEFCFUN ("sgetrf2_" %%SGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12588 ':INT32) (N-REF12589 ':INT32)
                              (LDA-REF12591 ':INT32) (INFO-REF12593 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12588 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12589 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12591 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12593 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12590 A) (IPIV-REF12592 IPIV))
      (%%SGETRF2 M-REF12588 N-REF12589 A-REF12590 LDA-REF12591 IPIV-REF12592
                 INFO-REF12593))))

(CFFI:DEFCFUN ("sgetri_" %%SGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12594 ':INT32) (LDA-REF12596 ':INT32)
                              (LWORK-REF12599 ':INT32) (INFO-REF12600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12596 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12599 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12600 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12595 A) (IPIV-REF12597 IPIV)
                                            (WORK-REF12598 WORK))
      (%%SGETRI N-REF12594 A-REF12595 LDA-REF12596 IPIV-REF12597 WORK-REF12598
                LWORK-REF12599 INFO-REF12600))))

(CFFI:DEFCFUN ("sgetrs_" %%SGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12602 ':INT32) (NRHS-REF12603 ':INT32)
                              (LDA-REF12605 ':INT32) (LDB-REF12608 ':INT32)
                              (INFO-REF12609 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12602 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12603 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12605 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12608 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12609 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12604 A) (IPIV-REF12606 IPIV)
                                            (B-REF12607 B))
      (%%SGETRS TRANS N-REF12602 NRHS-REF12603 A-REF12604 LDA-REF12605
                IPIV-REF12606 B-REF12607 LDB-REF12608 INFO-REF12609))))

(CFFI:DEFCFUN ("sgetsls_" %%SGETSLS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGETSLS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETSLS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12611 ':INT32) (N-REF12612 ':INT32)
                              (NRHS-REF12613 ':INT32) (LDA-REF12615 ':INT32)
                              (LDB-REF12617 ':INT32) (LWORK-REF12619 ':INT32)
                              (INFO-REF12620 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12611 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12612 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12613 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12615 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12617 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12619 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12620 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12614 A) (B-REF12616 B)
                                            (WORK-REF12618 WORK))
      (%%SGETSLS TRANS M-REF12611 N-REF12612 NRHS-REF12613 A-REF12614
                 LDA-REF12615 B-REF12616 LDB-REF12617 WORK-REF12618
                 LWORK-REF12619 INFO-REF12620))))

(CFFI:DEFCFUN ("sggbak_" %%SGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGBAK (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12623 ':INT32) (ILO-REF12624 ':INT32)
                              (IHI-REF12625 ':INT32) (M-REF12628 ':INT32)
                              (LDV-REF12630 ':INT32) (INFO-REF12631 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12623 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12624 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12625 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12628 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12630 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12631 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF12626 LSCALE)
                                            (RSCALE-REF12627 RSCALE)
                                            (V-REF12629 V))
      (%%SGGBAK JOB SIDE N-REF12623 ILO-REF12624 IHI-REF12625 LSCALE-REF12626
                RSCALE-REF12627 M-REF12628 V-REF12629 LDV-REF12630
                INFO-REF12631))))

(CFFI:DEFCFUN ("sggbal_" %%SGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGBAL (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12633 ':INT32) (LDA-REF12635 ':INT32)
                              (LDB-REF12637 ':INT32) (ILO-REF12638 ':INT32)
                              (IHI-REF12639 ':INT32) (INFO-REF12643 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12633 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12635 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12637 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12638 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12639 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12643 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12634 A) (B-REF12636 B)
                                            (LSCALE-REF12640 LSCALE)
                                            (RSCALE-REF12641 RSCALE)
                                            (WORK-REF12642 WORK))
      (%%SGGBAL JOB N-REF12633 A-REF12634 LDA-REF12635 B-REF12636 LDB-REF12637
                ILO-REF12638 IHI-REF12639 LSCALE-REF12640 RSCALE-REF12641
                WORK-REF12642 INFO-REF12643))))

(CFFI:DEFCFUN ("sgges_" %%SGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGES
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
                    BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12647 ':INT32) (N-REF12648 ':INT32)
                              (LDA-REF12650 ':INT32) (LDB-REF12652 ':INT32)
                              (SDIM-REF12653 ':INT32) (LDVSL-REF12658 ':INT32)
                              (LDVSR-REF12660 ':INT32) (LWORK-REF12662 ':INT32)
                              (INFO-REF12664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12647 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12650 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12652 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12653 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12658 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12660 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12662 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12664 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12649 A) (B-REF12651 B)
                                            (ALPHAR-REF12654 ALPHAR)
                                            (ALPHAI-REF12655 ALPHAI)
                                            (BETA-REF12656 BETA)
                                            (VSL-REF12657 VSL)
                                            (VSR-REF12659 VSR)
                                            (WORK-REF12661 WORK)
                                            (BWORK-REF12663 BWORK))
      (%%SGGES JOBVSL JOBVSR SORT SELCTG-REF12647 N-REF12648 A-REF12649
               LDA-REF12650 B-REF12651 LDB-REF12652 SDIM-REF12653
               ALPHAR-REF12654 ALPHAI-REF12655 BETA-REF12656 VSL-REF12657
               LDVSL-REF12658 VSR-REF12659 LDVSR-REF12660 WORK-REF12661
               LWORK-REF12662 BWORK-REF12663 INFO-REF12664))))

(CFFI:DEFCFUN ("sgges3_" %%SGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGES3
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
                    BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGES3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12668 ':INT32) (N-REF12669 ':INT32)
                              (LDA-REF12671 ':INT32) (LDB-REF12673 ':INT32)
                              (SDIM-REF12674 ':INT32) (LDVSL-REF12679 ':INT32)
                              (LDVSR-REF12681 ':INT32) (LWORK-REF12683 ':INT32)
                              (INFO-REF12685 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12668 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12669 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12671 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12673 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12674 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12679 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12681 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12683 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12685 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12670 A) (B-REF12672 B)
                                            (ALPHAR-REF12675 ALPHAR)
                                            (ALPHAI-REF12676 ALPHAI)
                                            (BETA-REF12677 BETA)
                                            (VSL-REF12678 VSL)
                                            (VSR-REF12680 VSR)
                                            (WORK-REF12682 WORK)
                                            (BWORK-REF12684 BWORK))
      (%%SGGES3 JOBVSL JOBVSR SORT SELCTG-REF12668 N-REF12669 A-REF12670
                LDA-REF12671 B-REF12672 LDB-REF12673 SDIM-REF12674
                ALPHAR-REF12675 ALPHAI-REF12676 BETA-REF12677 VSL-REF12678
                LDVSL-REF12679 VSR-REF12680 LDVSR-REF12681 WORK-REF12682
                LWORK-REF12683 BWORK-REF12684 INFO-REF12685))))

(CFFI:DEFCFUN ("sggesx_" %%SGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGESX
                   (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHAR
                    ALPHAI BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK
                    IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12689 ':INT32) (N-REF12691 ':INT32)
                              (LDA-REF12693 ':INT32) (LDB-REF12695 ':INT32)
                              (SDIM-REF12696 ':INT32) (LDVSL-REF12701 ':INT32)
                              (LDVSR-REF12703 ':INT32) (LWORK-REF12707 ':INT32)
                              (LIWORK-REF12709 ':INT32) (INFO-REF12711 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12689 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12691 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12693 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12695 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12696 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12701 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12703 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12707 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12709 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12711 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12692 A) (B-REF12694 B)
                                            (ALPHAR-REF12697 ALPHAR)
                                            (ALPHAI-REF12698 ALPHAI)
                                            (BETA-REF12699 BETA)
                                            (VSL-REF12700 VSL)
                                            (VSR-REF12702 VSR)
                                            (RCONDE-REF12704 RCONDE)
                                            (RCONDV-REF12705 RCONDV)
                                            (WORK-REF12706 WORK)
                                            (IWORK-REF12708 IWORK)
                                            (BWORK-REF12710 BWORK))
      (%%SGGESX JOBVSL JOBVSR SORT SELCTG-REF12689 SENSE N-REF12691 A-REF12692
                LDA-REF12693 B-REF12694 LDB-REF12695 SDIM-REF12696
                ALPHAR-REF12697 ALPHAI-REF12698 BETA-REF12699 VSL-REF12700
                LDVSL-REF12701 VSR-REF12702 LDVSR-REF12703 RCONDE-REF12704
                RCONDV-REF12705 WORK-REF12706 LWORK-REF12707 IWORK-REF12708
                LIWORK-REF12709 BWORK-REF12710 INFO-REF12711))))

(CFFI:DEFCFUN ("sggev_" %%SGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGEV
                   (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
                    LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12714 ':INT32) (LDA-REF12716 ':INT32)
                              (LDB-REF12718 ':INT32) (LDVL-REF12723 ':INT32)
                              (LDVR-REF12725 ':INT32) (LWORK-REF12727 ':INT32)
                              (INFO-REF12728 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12718 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12723 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12725 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12727 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12728 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12715 A) (B-REF12717 B)
                                            (ALPHAR-REF12719 ALPHAR)
                                            (ALPHAI-REF12720 ALPHAI)
                                            (BETA-REF12721 BETA)
                                            (VL-REF12722 VL) (VR-REF12724 VR)
                                            (WORK-REF12726 WORK))
      (%%SGGEV JOBVL JOBVR N-REF12714 A-REF12715 LDA-REF12716 B-REF12717
               LDB-REF12718 ALPHAR-REF12719 ALPHAI-REF12720 BETA-REF12721
               VL-REF12722 LDVL-REF12723 VR-REF12724 LDVR-REF12725
               WORK-REF12726 LWORK-REF12727 INFO-REF12728))))

(CFFI:DEFCFUN ("sggev3_" %%SGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGEV3
                   (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
                    LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGEV3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12731 ':INT32) (LDA-REF12733 ':INT32)
                              (LDB-REF12735 ':INT32) (LDVL-REF12740 ':INT32)
                              (LDVR-REF12742 ':INT32) (LWORK-REF12744 ':INT32)
                              (INFO-REF12745 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12733 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12735 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12740 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12742 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12744 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12745 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12732 A) (B-REF12734 B)
                                            (ALPHAR-REF12736 ALPHAR)
                                            (ALPHAI-REF12737 ALPHAI)
                                            (BETA-REF12738 BETA)
                                            (VL-REF12739 VL) (VR-REF12741 VR)
                                            (WORK-REF12743 WORK))
      (%%SGGEV3 JOBVL JOBVR N-REF12731 A-REF12732 LDA-REF12733 B-REF12734
                LDB-REF12735 ALPHAR-REF12736 ALPHAI-REF12737 BETA-REF12738
                VL-REF12739 LDVL-REF12740 VR-REF12741 LDVR-REF12742
                WORK-REF12743 LWORK-REF12744 INFO-REF12745))))

(CFFI:DEFCFUN ("sggevx_" %%SGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (ABNRM :POINTER)
  (BBNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHAR ALPHAI BETA
                    VL LDVL VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE
                    RCONDV WORK LWORK IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BBNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12750 ':INT32) (LDA-REF12752 ':INT32)
                              (LDB-REF12754 ':INT32) (LDVL-REF12759 ':INT32)
                              (LDVR-REF12761 ':INT32) (ILO-REF12762 ':INT32)
                              (IHI-REF12763 ':INT32) (ABNRM-REF12766 ':FLOAT)
                              (BBNRM-REF12767 ':FLOAT) (LWORK-REF12771 ':INT32)
                              (INFO-REF12774 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12750 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12752 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12754 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12759 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12761 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12762 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12763 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF12766 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF12767 :FLOAT) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12771 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12774 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12751 A) (B-REF12753 B)
                                            (ALPHAR-REF12755 ALPHAR)
                                            (ALPHAI-REF12756 ALPHAI)
                                            (BETA-REF12757 BETA)
                                            (VL-REF12758 VL) (VR-REF12760 VR)
                                            (LSCALE-REF12764 LSCALE)
                                            (RSCALE-REF12765 RSCALE)
                                            (RCONDE-REF12768 RCONDE)
                                            (RCONDV-REF12769 RCONDV)
                                            (WORK-REF12770 WORK)
                                            (IWORK-REF12772 IWORK)
                                            (BWORK-REF12773 BWORK))
      (%%SGGEVX BALANC JOBVL JOBVR SENSE N-REF12750 A-REF12751 LDA-REF12752
                B-REF12753 LDB-REF12754 ALPHAR-REF12755 ALPHAI-REF12756
                BETA-REF12757 VL-REF12758 LDVL-REF12759 VR-REF12760
                LDVR-REF12761 ILO-REF12762 IHI-REF12763 LSCALE-REF12764
                RSCALE-REF12765 ABNRM-REF12766 BBNRM-REF12767 RCONDE-REF12768
                RCONDV-REF12769 WORK-REF12770 LWORK-REF12771 IWORK-REF12772
                BWORK-REF12773 INFO-REF12774))))

(CFFI:DEFCFUN ("sggglm_" %%SGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (D :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGGLM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12775 ':INT32) (M-REF12776 ':INT32)
                              (P-REF12777 ':INT32) (LDA-REF12779 ':INT32)
                              (LDB-REF12781 ':INT32) (LWORK-REF12786 ':INT32)
                              (INFO-REF12787 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12775 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12776 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12777 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12779 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12781 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12786 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12787 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12778 A) (B-REF12780 B)
                                            (D-REF12782 D) (X-REF12783 X)
                                            (Y-REF12784 Y) (WORK-REF12785 WORK))
      (%%SGGGLM N-REF12775 M-REF12776 P-REF12777 A-REF12778 LDA-REF12779
                B-REF12780 LDB-REF12781 D-REF12782 X-REF12783 Y-REF12784
                WORK-REF12785 LWORK-REF12786 INFO-REF12787))))

(CFFI:DEFCFUN ("sgghd3_" %%SGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGHD3
                   (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGHD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12790 ':INT32) (ILO-REF12791 ':INT32)
                              (IHI-REF12792 ':INT32) (LDA-REF12794 ':INT32)
                              (LDB-REF12796 ':INT32) (LDQ-REF12798 ':INT32)
                              (LDZ-REF12800 ':INT32) (LWORK-REF12802 ':INT32)
                              (INFO-REF12803 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12790 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12791 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12792 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12794 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12796 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12798 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF12800 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12802 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12803 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12793 A) (B-REF12795 B)
                                            (Q-REF12797 Q) (Z-REF12799 Z)
                                            (WORK-REF12801 WORK))
      (%%SGGHD3 COMPQ COMPZ N-REF12790 ILO-REF12791 IHI-REF12792 A-REF12793
                LDA-REF12794 B-REF12795 LDB-REF12796 Q-REF12797 LDQ-REF12798
                Z-REF12799 LDZ-REF12800 WORK-REF12801 LWORK-REF12802
                INFO-REF12803))))

(CFFI:DEFCFUN ("sgghrd_" %%SGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGHRD (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGHRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12806 ':INT32) (ILO-REF12807 ':INT32)
                              (IHI-REF12808 ':INT32) (LDA-REF12810 ':INT32)
                              (LDB-REF12812 ':INT32) (LDQ-REF12814 ':INT32)
                              (LDZ-REF12816 ':INT32) (INFO-REF12817 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12806 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12807 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12808 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12810 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12812 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12814 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF12816 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12817 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12809 A) (B-REF12811 B)
                                            (Q-REF12813 Q) (Z-REF12815 Z))
      (%%SGGHRD COMPQ COMPZ N-REF12806 ILO-REF12807 IHI-REF12808 A-REF12809
                LDA-REF12810 B-REF12811 LDB-REF12812 Q-REF12813 LDQ-REF12814
                Z-REF12815 LDZ-REF12816 INFO-REF12817))))

(CFFI:DEFCFUN ("sgglse_" %%SGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (D :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGLSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12818 ':INT32) (N-REF12819 ':INT32)
                              (P-REF12820 ':INT32) (LDA-REF12822 ':INT32)
                              (LDB-REF12824 ':INT32) (LWORK-REF12829 ':INT32)
                              (INFO-REF12830 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12818 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12819 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12820 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12822 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12824 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12829 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12830 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12821 A) (B-REF12823 B)
                                            (C-REF12825 C) (D-REF12826 D)
                                            (X-REF12827 X) (WORK-REF12828 WORK))
      (%%SGGLSE M-REF12818 N-REF12819 P-REF12820 A-REF12821 LDA-REF12822
                B-REF12823 LDB-REF12824 C-REF12825 D-REF12826 X-REF12827
                WORK-REF12828 LWORK-REF12829 INFO-REF12830))))

(CFFI:DEFCFUN ("sggqrf_" %%SGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGQRF (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12831 ':INT32) (M-REF12832 ':INT32)
                              (P-REF12833 ':INT32) (LDA-REF12835 ':INT32)
                              (LDB-REF12838 ':INT32) (LWORK-REF12841 ':INT32)
                              (INFO-REF12842 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12831 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12832 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12833 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12835 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12838 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12841 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12842 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12834 A) (TAUA-REF12836 TAUA)
                                            (B-REF12837 B) (TAUB-REF12839 TAUB)
                                            (WORK-REF12840 WORK))
      (%%SGGQRF N-REF12831 M-REF12832 P-REF12833 A-REF12834 LDA-REF12835
                TAUA-REF12836 B-REF12837 LDB-REF12838 TAUB-REF12839
                WORK-REF12840 LWORK-REF12841 INFO-REF12842))))

(CFFI:DEFCFUN ("sggrqf_" %%SGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGRQF (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGRQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12843 ':INT32) (P-REF12844 ':INT32)
                              (N-REF12845 ':INT32) (LDA-REF12847 ':INT32)
                              (LDB-REF12850 ':INT32) (LWORK-REF12853 ':INT32)
                              (INFO-REF12854 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12843 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12844 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12845 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12847 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12850 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12853 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12854 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12846 A) (TAUA-REF12848 TAUA)
                                            (B-REF12849 B) (TAUB-REF12851 TAUB)
                                            (WORK-REF12852 WORK))
      (%%SGGRQF M-REF12843 P-REF12844 N-REF12845 A-REF12846 LDA-REF12847
                TAUA-REF12848 B-REF12849 LDB-REF12850 TAUB-REF12851
                WORK-REF12852 LWORK-REF12853 INFO-REF12854))))

(CFFI:DEFCFUN ("sggsvd3_" %%SGGSVD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGSVD3
                   (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV
                    Q LDQ WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGSVD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12858 ':INT32) (N-REF12859 ':INT32)
                              (P-REF12860 ':INT32) (K-REF12861 ':INT32)
                              (L-REF12862 ':INT32) (LDA-REF12864 ':INT32)
                              (LDB-REF12866 ':INT32) (LDU-REF12870 ':INT32)
                              (LDV-REF12872 ':INT32) (LDQ-REF12874 ':INT32)
                              (LWORK-REF12876 ':INT32) (INFO-REF12878 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12858 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12859 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12860 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12861 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF12862 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12864 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12866 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12870 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12872 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12874 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12876 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12878 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12863 A) (B-REF12865 B)
                                            (ALPHA-REF12867 ALPHA)
                                            (BETA-REF12868 BETA) (U-REF12869 U)
                                            (V-REF12871 V) (Q-REF12873 Q)
                                            (WORK-REF12875 WORK)
                                            (IWORK-REF12877 IWORK))
      (%%SGGSVD3 JOBU JOBV JOBQ M-REF12858 N-REF12859 P-REF12860 K-REF12861
                 L-REF12862 A-REF12863 LDA-REF12864 B-REF12865 LDB-REF12866
                 ALPHA-REF12867 BETA-REF12868 U-REF12869 LDU-REF12870
                 V-REF12871 LDV-REF12872 Q-REF12873 LDQ-REF12874 WORK-REF12875
                 LWORK-REF12876 IWORK-REF12877 INFO-REF12878))))

(CFFI:DEFCFUN ("sggsvp3_" %%SGGSVP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (K :POINTER)
  (L :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IWORK :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGGSVP3
                   (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV
                    Q LDQ IWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGSVP3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12882 ':INT32) (P-REF12883 ':INT32)
                              (N-REF12884 ':INT32) (LDA-REF12886 ':INT32)
                              (LDB-REF12888 ':INT32) (TOLA-REF12889 ':FLOAT)
                              (TOLB-REF12890 ':FLOAT) (K-REF12891 ':INT32)
                              (L-REF12892 ':INT32) (LDU-REF12894 ':INT32)
                              (LDV-REF12896 ':INT32) (LDQ-REF12898 ':INT32)
                              (LWORK-REF12902 ':INT32) (INFO-REF12903 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12882 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12883 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12884 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12886 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12888 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF12889 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF12890 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12891 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF12892 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12894 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12896 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12898 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12902 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12903 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12885 A) (B-REF12887 B)
                                            (U-REF12893 U) (V-REF12895 V)
                                            (Q-REF12897 Q)
                                            (IWORK-REF12899 IWORK)
                                            (TAU-REF12900 TAU)
                                            (WORK-REF12901 WORK))
      (%%SGGSVP3 JOBU JOBV JOBQ M-REF12882 P-REF12883 N-REF12884 A-REF12885
                 LDA-REF12886 B-REF12887 LDB-REF12888 TOLA-REF12889
                 TOLB-REF12890 K-REF12891 L-REF12892 U-REF12893 LDU-REF12894
                 V-REF12895 LDV-REF12896 Q-REF12897 LDQ-REF12898 IWORK-REF12899
                 TAU-REF12900 WORK-REF12901 LWORK-REF12902 INFO-REF12903))))

(CFFI:DEFCFUN ("sgsvj0_" %%SGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGSVJ0
                   (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGSVJ0)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12905 ':INT32) (N-REF12906 ':INT32)
                              (LDA-REF12908 ':INT32) (MV-REF12911 ':INT32)
                              (LDV-REF12913 ':INT32) (EPS-REF12914 ':FLOAT)
                              (SFMIN-REF12915 ':FLOAT) (TOL-REF12916 ':FLOAT)
                              (NSWEEP-REF12917 ':INT32)
                              (LWORK-REF12919 ':INT32) (INFO-REF12920 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12905 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12906 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12908 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12911 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12913 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF12914 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF12915 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF12916 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF12917 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12919 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12920 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12907 A) (D-REF12909 D)
                                            (SVA-REF12910 SVA) (V-REF12912 V)
                                            (WORK-REF12918 WORK))
      (%%SGSVJ0 JOBV M-REF12905 N-REF12906 A-REF12907 LDA-REF12908 D-REF12909
                SVA-REF12910 MV-REF12911 V-REF12912 LDV-REF12913 EPS-REF12914
                SFMIN-REF12915 TOL-REF12916 NSWEEP-REF12917 WORK-REF12918
                LWORK-REF12919 INFO-REF12920))))

(CFFI:DEFCFUN ("sgsvj1_" %%SGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGSVJ1
                   (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGSVJ1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12922 ':INT32) (N-REF12923 ':INT32)
                              (N1-REF12924 ':INT32) (LDA-REF12926 ':INT32)
                              (MV-REF12929 ':INT32) (LDV-REF12931 ':INT32)
                              (EPS-REF12932 ':FLOAT) (SFMIN-REF12933 ':FLOAT)
                              (TOL-REF12934 ':FLOAT) (NSWEEP-REF12935 ':INT32)
                              (LWORK-REF12937 ':INT32) (INFO-REF12938 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12922 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12923 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF12924 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12926 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12929 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12931 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF12932 :FLOAT) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF12933 :FLOAT) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF12934 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF12935 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12937 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12938 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12925 A) (D-REF12927 D)
                                            (SVA-REF12928 SVA) (V-REF12930 V)
                                            (WORK-REF12936 WORK))
      (%%SGSVJ1 JOBV M-REF12922 N-REF12923 N1-REF12924 A-REF12925 LDA-REF12926
                D-REF12927 SVA-REF12928 MV-REF12929 V-REF12930 LDV-REF12931
                EPS-REF12932 SFMIN-REF12933 TOL-REF12934 NSWEEP-REF12935
                WORK-REF12936 LWORK-REF12937 INFO-REF12938))))

(CFFI:DEFCFUN ("sgtcon_" %%SGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTCON
                   (NORM N DL D DU DU2 IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12940 ':INT32) (ANORM-REF12946 ':FLOAT)
                              (RCOND-REF12947 ':FLOAT) (INFO-REF12950 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12940 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF12946 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12947 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12950 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12941 DL) (D-REF12942 D)
                                            (DU-REF12943 DU) (DU2-REF12944 DU2)
                                            (IPIV-REF12945 IPIV)
                                            (WORK-REF12948 WORK)
                                            (IWORK-REF12949 IWORK))
      (%%SGTCON NORM N-REF12940 DL-REF12941 D-REF12942 DU-REF12943 DU2-REF12944
                IPIV-REF12945 ANORM-REF12946 RCOND-REF12947 WORK-REF12948
                IWORK-REF12949 INFO-REF12950))))

(CFFI:DEFCFUN ("sgtrfs_" %%SGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTRFS
                   (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR
                    BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12952 ':INT32) (NRHS-REF12953 ':INT32)
                              (LDB-REF12963 ':INT32) (LDX-REF12965 ':INT32)
                              (INFO-REF12970 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12952 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12953 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12963 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12965 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12970 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12954 DL) (D-REF12955 D)
                                            (DU-REF12956 DU) (DLF-REF12957 DLF)
                                            (DF-REF12958 DF) (DUF-REF12959 DUF)
                                            (DU2-REF12960 DU2)
                                            (IPIV-REF12961 IPIV) (B-REF12962 B)
                                            (X-REF12964 X) (FERR-REF12966 FERR)
                                            (BERR-REF12967 BERR)
                                            (WORK-REF12968 WORK)
                                            (IWORK-REF12969 IWORK))
      (%%SGTRFS TRANS N-REF12952 NRHS-REF12953 DL-REF12954 D-REF12955
                DU-REF12956 DLF-REF12957 DF-REF12958 DUF-REF12959 DU2-REF12960
                IPIV-REF12961 B-REF12962 LDB-REF12963 X-REF12964 LDX-REF12965
                FERR-REF12966 BERR-REF12967 WORK-REF12968 IWORK-REF12969
                INFO-REF12970))))

(CFFI:DEFCFUN ("sgtsv_" %%SGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12971 ':INT32) (NRHS-REF12972 ':INT32)
                              (LDB-REF12977 ':INT32) (INFO-REF12978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12971 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12972 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12977 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12978 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12973 DL) (D-REF12974 D)
                                            (DU-REF12975 DU) (B-REF12976 B))
      (%%SGTSV N-REF12971 NRHS-REF12972 DL-REF12973 D-REF12974 DU-REF12975
               B-REF12976 LDB-REF12977 INFO-REF12978))))

(CFFI:DEFCFUN ("sgtsvx_" %%SGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTSVX
                   (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12981 ':INT32) (NRHS-REF12982 ':INT32)
                              (LDB-REF12992 ':INT32) (LDX-REF12994 ':INT32)
                              (RCOND-REF12995 ':FLOAT) (INFO-REF13000 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12981 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12982 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12992 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12994 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12995 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13000 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12983 DL) (D-REF12984 D)
                                            (DU-REF12985 DU) (DLF-REF12986 DLF)
                                            (DF-REF12987 DF) (DUF-REF12988 DUF)
                                            (DU2-REF12989 DU2)
                                            (IPIV-REF12990 IPIV) (B-REF12991 B)
                                            (X-REF12993 X) (FERR-REF12996 FERR)
                                            (BERR-REF12997 BERR)
                                            (WORK-REF12998 WORK)
                                            (IWORK-REF12999 IWORK))
      (%%SGTSVX FACT TRANS N-REF12981 NRHS-REF12982 DL-REF12983 D-REF12984
                DU-REF12985 DLF-REF12986 DF-REF12987 DUF-REF12988 DU2-REF12989
                IPIV-REF12990 B-REF12991 LDB-REF12992 X-REF12993 LDX-REF12994
                RCOND-REF12995 FERR-REF12996 BERR-REF12997 WORK-REF12998
                IWORK-REF12999 INFO-REF13000))))

(CFFI:DEFCFUN ("sgttrf_" %%SGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13001 ':INT32) (INFO-REF13007 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13001 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13007 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13002 DL) (D-REF13003 D)
                                            (DU-REF13004 DU) (DU2-REF13005 DU2)
                                            (IPIV-REF13006 IPIV))
      (%%SGTTRF N-REF13001 DL-REF13002 D-REF13003 DU-REF13004 DU2-REF13005
                IPIV-REF13006 INFO-REF13007))))

(CFFI:DEFCFUN ("sgttrs_" %%SGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13009 ':INT32) (NRHS-REF13010 ':INT32)
                              (LDB-REF13017 ':INT32) (INFO-REF13018 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13009 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13010 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13017 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13018 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13011 DL) (D-REF13012 D)
                                            (DU-REF13013 DU) (DU2-REF13014 DU2)
                                            (IPIV-REF13015 IPIV) (B-REF13016 B))
      (%%SGTTRS TRANS N-REF13009 NRHS-REF13010 DL-REF13011 D-REF13012
                DU-REF13013 DU2-REF13014 IPIV-REF13015 B-REF13016 LDB-REF13017
                INFO-REF13018))))

(CFFI:DEFCFUN ("sgtts2_" %%SGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITRANS :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %SGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF13019 ':INT32) (N-REF13020 ':INT32)
                              (NRHS-REF13021 ':INT32) (LDB-REF13028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF13019 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13020 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13021 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13028 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13022 DL) (D-REF13023 D)
                                            (DU-REF13024 DU) (DU2-REF13025 DU2)
                                            (IPIV-REF13026 IPIV) (B-REF13027 B))
      (%%SGTTS2 ITRANS-REF13019 N-REF13020 NRHS-REF13021 DL-REF13022 D-REF13023
                DU-REF13024 DU2-REF13025 IPIV-REF13026 B-REF13027
                LDB-REF13028))))

(CFFI:DEFCFUN ("shgeqz_" %%SHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SHGEQZ
                   (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHAR ALPHAI BETA Q
                    LDQ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SHGEQZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13032 ':INT32) (ILO-REF13033 ':INT32)
                              (IHI-REF13034 ':INT32) (LDH-REF13036 ':INT32)
                              (LDT-REF13038 ':INT32) (LDQ-REF13043 ':INT32)
                              (LDZ-REF13045 ':INT32) (LWORK-REF13047 ':INT32)
                              (INFO-REF13048 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13032 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13033 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13034 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13036 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13038 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13043 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13045 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13047 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13048 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13035 H) (T-REF13037 T)
                                            (ALPHAR-REF13039 ALPHAR)
                                            (ALPHAI-REF13040 ALPHAI)
                                            (BETA-REF13041 BETA) (Q-REF13042 Q)
                                            (Z-REF13044 Z) (WORK-REF13046 WORK))
      (%%SHGEQZ JOB COMPQ COMPZ N-REF13032 ILO-REF13033 IHI-REF13034 H-REF13035
                LDH-REF13036 T-REF13037 LDT-REF13038 ALPHAR-REF13039
                ALPHAI-REF13040 BETA-REF13041 Q-REF13042 LDQ-REF13043
                Z-REF13044 LDZ-REF13045 WORK-REF13046 LWORK-REF13047
                INFO-REF13048))))

(CFFI:DEFCFUN ("shsein_" %%SHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (EIGSRC :STRING)
  (INITV :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (IFAILL :POINTER)
  (IFAILR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SHSEIN
                   (SIDE EIGSRC INITV SELECT N H LDH WR WI VL LDVL VR LDVR MM M
                    WORK IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SHSEIN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13053 ':INT32) (LDH-REF13055 ':INT32)
                              (LDVL-REF13059 ':INT32) (LDVR-REF13061 ':INT32)
                              (MM-REF13062 ':INT32) (M-REF13063 ':INT32)
                              (INFO-REF13067 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13053 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13055 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF13059 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF13061 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF13062 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13063 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13067 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF13052 SELECT)
                                            (H-REF13054 H) (WR-REF13056 WR)
                                            (WI-REF13057 WI) (VL-REF13058 VL)
                                            (VR-REF13060 VR)
                                            (WORK-REF13064 WORK)
                                            (IFAILL-REF13065 IFAILL)
                                            (IFAILR-REF13066 IFAILR))
      (%%SHSEIN SIDE EIGSRC INITV SELECT-REF13052 N-REF13053 H-REF13054
                LDH-REF13055 WR-REF13056 WI-REF13057 VL-REF13058 LDVL-REF13059
                VR-REF13060 LDVR-REF13061 MM-REF13062 M-REF13063 WORK-REF13064
                IFAILL-REF13065 IFAILR-REF13066 INFO-REF13067))))

(CFFI:DEFCFUN ("shseqr_" %%SHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SHSEQR
                   (JOB COMPZ N ILO IHI H LDH WR WI Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SHSEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13070 ':INT32) (ILO-REF13071 ':INT32)
                              (IHI-REF13072 ':INT32) (LDH-REF13074 ':INT32)
                              (LDZ-REF13078 ':INT32) (LWORK-REF13080 ':INT32)
                              (INFO-REF13081 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13070 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13071 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13072 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13074 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13078 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13080 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13081 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13073 H) (WR-REF13075 WR)
                                            (WI-REF13076 WI) (Z-REF13077 Z)
                                            (WORK-REF13079 WORK))
      (%%SHSEQR JOB COMPZ N-REF13070 ILO-REF13071 IHI-REF13072 H-REF13073
                LDH-REF13074 WR-REF13075 WI-REF13076 Z-REF13077 LDZ-REF13078
                WORK-REF13079 LWORK-REF13080 INFO-REF13081))))

(CFFI:DEFCFUN ("sisnan_" %%SISNAN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (SIN :POINTER))

(COMMON-LISP:DEFUN %SISNAN (SIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SISNAN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((SIN-REF13082 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SIN-REF13082 :FLOAT) SIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SISNAN SIN-REF13082))))

(CFFI:DEFCFUN ("sla_gbamv_" %%SLA_GBAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SLA_GBAMV
                   (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF13083 ':INT32) (M-REF13084 ':INT32)
                              (N-REF13085 ':INT32) (KL-REF13086 ':INT32)
                              (KU-REF13087 ':INT32) (ALPHA-REF13088 ':FLOAT)
                              (LDAB-REF13090 ':INT32) (INCX-REF13092 ':INT32)
                              (BETA-REF13093 ':FLOAT) (INCY-REF13095 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF13083 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13084 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13086 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13087 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13088 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13090 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13092 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13093 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13095 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13089 AB) (X-REF13091 X)
                                            (Y-REF13094 Y))
      (%%SLA_GBAMV TRANS-REF13083 M-REF13084 N-REF13085 KL-REF13086 KU-REF13087
                   ALPHA-REF13088 AB-REF13089 LDAB-REF13090 X-REF13091
                   INCX-REF13092 BETA-REF13093 Y-REF13094 INCY-REF13095))))

(CFFI:DEFCFUN ("sla_gbrcond_" %%SLA_GBRCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %SLA_GBRCOND
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV CMODE C INFO WORK
                    IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBRCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13097 ':INT32) (KL-REF13098 ':INT32)
                              (KU-REF13099 ':INT32) (LDAB-REF13101 ':INT32)
                              (LDAFB-REF13103 ':INT32) (CMODE-REF13105 ':INT32)
                              (INFO-REF13107 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13097 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13098 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13099 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13101 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13103 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13105 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13107 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13100 AB) (AFB-REF13102 AFB)
                                            (IPIV-REF13104 IPIV) (C-REF13106 C)
                                            (WORK-REF13108 WORK)
                                            (IWORK-REF13109 IWORK))
      (%%SLA_GBRCOND TRANS N-REF13097 KL-REF13098 KU-REF13099 AB-REF13100
                     LDAB-REF13101 AFB-REF13102 LDAFB-REF13103 IPIV-REF13104
                     CMODE-REF13105 C-REF13106 INFO-REF13107 WORK-REF13108
                     IWORK-REF13109))))

(CFFI:DEFCFUN ("sla_gbrfsx_extended_" %%SLA_GBRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLA_GBRFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV
                    COLEQU C B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM
                    ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB
                    IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13110 ':INT32)
                              (TRANS_TYPE-REF13111 ':INT32)
                              (N-REF13112 ':INT32) (KL-REF13113 ':INT32)
                              (KU-REF13114 ':INT32) (NRHS-REF13115 ':INT32)
                              (LDAB-REF13117 ':INT32) (LDAFB-REF13119 ':INT32)
                              (COLEQU-REF13121 ':INT32) (LDB-REF13124 ':INT32)
                              (LDY-REF13126 ':INT32) (N_NORMS-REF13128 ':INT32)
                              (RCOND-REF13135 ':FLOAT)
                              (ITHRESH-REF13136 ':INT32)
                              (RTHRESH-REF13137 ':FLOAT)
                              (DZ_UB-REF13138 ':FLOAT)
                              (IGNORE_CWISE-REF13139 ':INT32)
                              (INFO-REF13140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13110 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF13111 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13112 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13113 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13114 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13115 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13117 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13119 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13121 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13124 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13126 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13128 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13135 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13136 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13137 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13138 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13139 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13140 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13116 AB) (AFB-REF13118 AFB)
                                            (IPIV-REF13120 IPIV) (C-REF13122 C)
                                            (B-REF13123 B) (Y-REF13125 Y)
                                            (BERR_OUT-REF13127 BERR_OUT)
                                            (ERR_BNDS_NORM-REF13129
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF13130
                                             ERR_BNDS_COMP)
                                            (RES-REF13131 RES)
                                            (AYB-REF13132 AYB) (DY-REF13133 DY)
                                            (Y_TAIL-REF13134 Y_TAIL))
      (%%SLA_GBRFSX_EXTENDED PREC_TYPE-REF13110 TRANS_TYPE-REF13111 N-REF13112
                             KL-REF13113 KU-REF13114 NRHS-REF13115 AB-REF13116
                             LDAB-REF13117 AFB-REF13118 LDAFB-REF13119
                             IPIV-REF13120 COLEQU-REF13121 C-REF13122
                             B-REF13123 LDB-REF13124 Y-REF13125 LDY-REF13126
                             BERR_OUT-REF13127 N_NORMS-REF13128
                             ERR_BNDS_NORM-REF13129 ERR_BNDS_COMP-REF13130
                             RES-REF13131 AYB-REF13132 DY-REF13133
                             Y_TAIL-REF13134 RCOND-REF13135 ITHRESH-REF13136
                             RTHRESH-REF13137 DZ_UB-REF13138
                             IGNORE_CWISE-REF13139 INFO-REF13140))))

(CFFI:DEFCFUN ("sla_gbrpvgrw_" %%SLA_GBRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NCOLS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER))

(COMMON-LISP:DEFUN %SLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBRPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13141 ':INT32) (KL-REF13142 ':INT32)
                              (KU-REF13143 ':INT32) (NCOLS-REF13144 ':INT32)
                              (LDAB-REF13146 ':INT32) (LDAFB-REF13148 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13141 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13142 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13143 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13144 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13146 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13148 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13145 AB) (AFB-REF13147 AFB))
      (%%SLA_GBRPVGRW N-REF13141 KL-REF13142 KU-REF13143 NCOLS-REF13144
                      AB-REF13145 LDAB-REF13146 AFB-REF13147 LDAFB-REF13148))))

(CFFI:DEFCFUN ("sla_geamv_" %%SLA_GEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SLA_GEAMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF13149 ':INT32) (M-REF13150 ':INT32)
                              (N-REF13151 ':INT32) (ALPHA-REF13152 ':FLOAT)
                              (LDA-REF13154 ':INT32) (INCX-REF13156 ':INT32)
                              (BETA-REF13157 ':FLOAT) (INCY-REF13159 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF13149 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13150 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13151 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13152 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13154 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13156 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13157 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13159 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13153 A) (X-REF13155 X)
                                            (Y-REF13158 Y))
      (%%SLA_GEAMV TRANS-REF13149 M-REF13150 N-REF13151 ALPHA-REF13152
                   A-REF13153 LDA-REF13154 X-REF13155 INCX-REF13156
                   BETA-REF13157 Y-REF13158 INCY-REF13159))))

(CFFI:DEFCFUN ("sla_gercond_" %%SLA_GERCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %SLA_GERCOND
                   (TRANS N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GERCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13161 ':INT32) (LDA-REF13163 ':INT32)
                              (LDAF-REF13165 ':INT32) (CMODE-REF13167 ':INT32)
                              (INFO-REF13169 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13161 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13163 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13165 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13167 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13169 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13162 A) (AF-REF13164 AF)
                                            (IPIV-REF13166 IPIV) (C-REF13168 C)
                                            (WORK-REF13170 WORK)
                                            (IWORK-REF13171 IWORK))
      (%%SLA_GERCOND TRANS N-REF13161 A-REF13162 LDA-REF13163 AF-REF13164
                     LDAF-REF13165 IPIV-REF13166 CMODE-REF13167 C-REF13168
                     INFO-REF13169 WORK-REF13170 IWORK-REF13171))))

(CFFI:DEFCFUN ("sla_gerfsx_extended_" %%SLA_GERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERRS_N :POINTER)
  (ERRS_C :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLA_GERFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B
                    LDB Y LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL
                    RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERRS_N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERRS_C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13172 ':INT32)
                              (TRANS_TYPE-REF13173 ':INT32)
                              (N-REF13174 ':INT32) (NRHS-REF13175 ':INT32)
                              (LDA-REF13177 ':INT32) (LDAF-REF13179 ':INT32)
                              (COLEQU-REF13181 ':INT32) (LDB-REF13184 ':INT32)
                              (LDY-REF13186 ':INT32) (N_NORMS-REF13188 ':INT32)
                              (RCOND-REF13195 ':FLOAT)
                              (ITHRESH-REF13196 ':INT32)
                              (RTHRESH-REF13197 ':FLOAT)
                              (DZ_UB-REF13198 ':FLOAT)
                              (IGNORE_CWISE-REF13199 ':INT32)
                              (INFO-REF13200 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13172 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF13173 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13174 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13175 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13177 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13179 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13181 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13184 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13186 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13188 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13195 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13196 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13197 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13198 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13199 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13200 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13176 A) (AF-REF13178 AF)
                                            (IPIV-REF13180 IPIV) (C-REF13182 C)
                                            (B-REF13183 B) (Y-REF13185 Y)
                                            (BERR_OUT-REF13187 BERR_OUT)
                                            (ERRS_N-REF13189 ERRS_N)
                                            (ERRS_C-REF13190 ERRS_C)
                                            (RES-REF13191 RES)
                                            (AYB-REF13192 AYB) (DY-REF13193 DY)
                                            (Y_TAIL-REF13194 Y_TAIL))
      (%%SLA_GERFSX_EXTENDED PREC_TYPE-REF13172 TRANS_TYPE-REF13173 N-REF13174
                             NRHS-REF13175 A-REF13176 LDA-REF13177 AF-REF13178
                             LDAF-REF13179 IPIV-REF13180 COLEQU-REF13181
                             C-REF13182 B-REF13183 LDB-REF13184 Y-REF13185
                             LDY-REF13186 BERR_OUT-REF13187 N_NORMS-REF13188
                             ERRS_N-REF13189 ERRS_C-REF13190 RES-REF13191
                             AYB-REF13192 DY-REF13193 Y_TAIL-REF13194
                             RCOND-REF13195 ITHRESH-REF13196 RTHRESH-REF13197
                             DZ_UB-REF13198 IGNORE_CWISE-REF13199
                             INFO-REF13200))))

(CFFI:DEFCFUN ("sla_gerpvgrw_" %%SLA_GERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (N :POINTER)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER))

(COMMON-LISP:DEFUN %SLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GERPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13201 ':INT32) (NCOLS-REF13202 ':INT32)
                              (LDA-REF13204 ':INT32) (LDAF-REF13206 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13201 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13202 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13204 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13206 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13203 A) (AF-REF13205 AF))
      (%%SLA_GERPVGRW N-REF13201 NCOLS-REF13202 A-REF13203 LDA-REF13204
                      AF-REF13205 LDAF-REF13206))))

(CFFI:DEFCFUN ("sla_lin_berr_" %%SLA_LIN_BERR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NZ :POINTER)
  (NRHS :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (BERR :POINTER))

(COMMON-LISP:DEFUN %SLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_LIN_BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13207 ':INT32) (NZ-REF13208 ':INT32)
                              (NRHS-REF13209 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13207 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF13208 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13209 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF13210 RES)
                                            (AYB-REF13211 AYB)
                                            (BERR-REF13212 BERR))
      (%%SLA_LIN_BERR N-REF13207 NZ-REF13208 NRHS-REF13209 RES-REF13210
                      AYB-REF13211 BERR-REF13212))))

(CFFI:DEFCFUN ("sla_porcond_" %%SLA_PORCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %SLA_PORCOND (UPLO N A LDA AF LDAF CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_PORCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13214 ':INT32) (LDA-REF13216 ':INT32)
                              (LDAF-REF13218 ':INT32) (CMODE-REF13219 ':INT32)
                              (INFO-REF13221 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13214 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13216 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13218 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13219 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13221 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13215 A) (AF-REF13217 AF)
                                            (C-REF13220 C) (WORK-REF13222 WORK)
                                            (IWORK-REF13223 IWORK))
      (%%SLA_PORCOND UPLO N-REF13214 A-REF13215 LDA-REF13216 AF-REF13217
                     LDAF-REF13218 CMODE-REF13219 C-REF13220 INFO-REF13221
                     WORK-REF13222 IWORK-REF13223))))

(CFFI:DEFCFUN ("sla_porfsx_extended_" %%SLA_PORFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLA_PORFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY
                    BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_PORFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13224 ':INT32) (N-REF13226 ':INT32)
                              (NRHS-REF13227 ':INT32) (LDA-REF13229 ':INT32)
                              (LDAF-REF13231 ':INT32) (COLEQU-REF13232 ':INT32)
                              (LDB-REF13235 ':INT32) (LDY-REF13237 ':INT32)
                              (N_NORMS-REF13239 ':INT32)
                              (RCOND-REF13246 ':FLOAT)
                              (ITHRESH-REF13247 ':INT32)
                              (RTHRESH-REF13248 ':FLOAT)
                              (DZ_UB-REF13249 ':FLOAT)
                              (IGNORE_CWISE-REF13250 ':INT32)
                              (INFO-REF13251 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13224 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13226 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13227 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13229 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13231 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13232 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13235 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13237 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13239 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13246 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13247 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13248 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13249 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13250 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13251 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13228 A) (AF-REF13230 AF)
                                            (C-REF13233 C) (B-REF13234 B)
                                            (Y-REF13236 Y)
                                            (BERR_OUT-REF13238 BERR_OUT)
                                            (ERR_BNDS_NORM-REF13240
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF13241
                                             ERR_BNDS_COMP)
                                            (RES-REF13242 RES)
                                            (AYB-REF13243 AYB) (DY-REF13244 DY)
                                            (Y_TAIL-REF13245 Y_TAIL))
      (%%SLA_PORFSX_EXTENDED PREC_TYPE-REF13224 UPLO N-REF13226 NRHS-REF13227
                             A-REF13228 LDA-REF13229 AF-REF13230 LDAF-REF13231
                             COLEQU-REF13232 C-REF13233 B-REF13234 LDB-REF13235
                             Y-REF13236 LDY-REF13237 BERR_OUT-REF13238
                             N_NORMS-REF13239 ERR_BNDS_NORM-REF13240
                             ERR_BNDS_COMP-REF13241 RES-REF13242 AYB-REF13243
                             DY-REF13244 Y_TAIL-REF13245 RCOND-REF13246
                             ITHRESH-REF13247 RTHRESH-REF13248 DZ_UB-REF13249
                             IGNORE_CWISE-REF13250 INFO-REF13251))))

(CFFI:DEFCFUN ("sla_porpvgrw_" %%SLA_PORPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_PORPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF13253 ':INT32) (LDA-REF13255 ':INT32)
                              (LDAF-REF13257 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13253 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13255 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13257 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13254 A) (AF-REF13256 AF)
                                            (WORK-REF13258 WORK))
      (%%SLA_PORPVGRW UPLO NCOLS-REF13253 A-REF13254 LDA-REF13255 AF-REF13256
                      LDAF-REF13257 WORK-REF13258))))

(CFFI:DEFCFUN ("sla_syamv_" %%SLA_SYAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF13259 ':INT32) (N-REF13260 ':INT32)
                              (ALPHA-REF13261 ':FLOAT) (LDA-REF13263 ':INT32)
                              (INCX-REF13265 ':INT32) (BETA-REF13266 ':FLOAT)
                              (INCY-REF13268 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF13259 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13260 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13261 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13263 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13265 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13266 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13268 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13262 A) (X-REF13264 X)
                                            (Y-REF13267 Y))
      (%%SLA_SYAMV UPLO-REF13259 N-REF13260 ALPHA-REF13261 A-REF13262
                   LDA-REF13263 X-REF13264 INCX-REF13265 BETA-REF13266
                   Y-REF13267 INCY-REF13268))))

(CFFI:DEFCFUN ("sla_syrcond_" %%SLA_SYRCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %SLA_SYRCOND
                   (UPLO N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYRCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13270 ':INT32) (LDA-REF13272 ':INT32)
                              (LDAF-REF13274 ':INT32) (CMODE-REF13276 ':INT32)
                              (INFO-REF13278 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13270 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13272 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13274 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13276 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13278 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13271 A) (AF-REF13273 AF)
                                            (IPIV-REF13275 IPIV) (C-REF13277 C)
                                            (WORK-REF13279 WORK)
                                            (IWORK-REF13280 IWORK))
      (%%SLA_SYRCOND UPLO N-REF13270 A-REF13271 LDA-REF13272 AF-REF13273
                     LDAF-REF13274 IPIV-REF13275 CMODE-REF13276 C-REF13277
                     INFO-REF13278 WORK-REF13279 IWORK-REF13280))))

(CFFI:DEFCFUN ("sla_syrfsx_extended_" %%SLA_SYRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLA_SYRFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13281 ':INT32) (N-REF13283 ':INT32)
                              (NRHS-REF13284 ':INT32) (LDA-REF13286 ':INT32)
                              (LDAF-REF13288 ':INT32) (COLEQU-REF13290 ':INT32)
                              (LDB-REF13293 ':INT32) (LDY-REF13295 ':INT32)
                              (N_NORMS-REF13297 ':INT32)
                              (RCOND-REF13304 ':FLOAT)
                              (ITHRESH-REF13305 ':INT32)
                              (RTHRESH-REF13306 ':FLOAT)
                              (DZ_UB-REF13307 ':FLOAT)
                              (IGNORE_CWISE-REF13308 ':INT32)
                              (INFO-REF13309 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13281 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13284 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13286 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13288 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13290 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13293 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13295 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13297 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13304 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13305 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13306 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13307 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13308 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13309 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13285 A) (AF-REF13287 AF)
                                            (IPIV-REF13289 IPIV) (C-REF13291 C)
                                            (B-REF13292 B) (Y-REF13294 Y)
                                            (BERR_OUT-REF13296 BERR_OUT)
                                            (ERR_BNDS_NORM-REF13298
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF13299
                                             ERR_BNDS_COMP)
                                            (RES-REF13300 RES)
                                            (AYB-REF13301 AYB) (DY-REF13302 DY)
                                            (Y_TAIL-REF13303 Y_TAIL))
      (%%SLA_SYRFSX_EXTENDED PREC_TYPE-REF13281 UPLO N-REF13283 NRHS-REF13284
                             A-REF13285 LDA-REF13286 AF-REF13287 LDAF-REF13288
                             IPIV-REF13289 COLEQU-REF13290 C-REF13291
                             B-REF13292 LDB-REF13293 Y-REF13294 LDY-REF13295
                             BERR_OUT-REF13296 N_NORMS-REF13297
                             ERR_BNDS_NORM-REF13298 ERR_BNDS_COMP-REF13299
                             RES-REF13300 AYB-REF13301 DY-REF13302
                             Y_TAIL-REF13303 RCOND-REF13304 ITHRESH-REF13305
                             RTHRESH-REF13306 DZ_UB-REF13307
                             IGNORE_CWISE-REF13308 INFO-REF13309))))

(CFFI:DEFCFUN ("sla_syrpvgrw_" %%SLA_SYRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYRPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13311 ':INT32) (INFO-REF13312 ':INT32)
                              (LDA-REF13314 ':INT32) (LDAF-REF13316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13311 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13312 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13314 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13316 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13313 A) (AF-REF13315 AF)
                                            (IPIV-REF13317 IPIV)
                                            (WORK-REF13318 WORK))
      (%%SLA_SYRPVGRW UPLO N-REF13311 INFO-REF13312 A-REF13313 LDA-REF13314
                      AF-REF13315 LDAF-REF13316 IPIV-REF13317 WORK-REF13318))))

(CFFI:DEFCFUN ("sla_wwaddw_" %%SLA_WWADDW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (W :POINTER))

(COMMON-LISP:DEFUN %SLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_WWADDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13319 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13319 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13320 X) (Y-REF13321 Y)
                                            (W-REF13322 W))
      (%%SLA_WWADDW N-REF13319 X-REF13320 Y-REF13321 W-REF13322))))

(CFFI:DEFCFUN ("slabad_" %%SLABAD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SMALL :POINTER)
  (LARGE :POINTER))

(COMMON-LISP:DEFUN %SLABAD (SMALL LARGE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLABAD)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMALL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LARGE))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF13323 ':FLOAT) (LARGE-REF13324 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF13323 :FLOAT) SMALL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF13324 :FLOAT) LARGE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLABAD SMALL-REF13323 LARGE-REF13324))))

(CFFI:DEFCFUN ("slabrd_" %%SLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %SLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLABRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13325 ':INT32) (N-REF13326 ':INT32)
                              (NB-REF13327 ':INT32) (LDA-REF13329 ':INT32)
                              (LDX-REF13335 ':INT32) (LDY-REF13337 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13325 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13326 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13327 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13329 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13335 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13337 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13328 A) (D-REF13330 D)
                                            (E-REF13331 E) (TAUQ-REF13332 TAUQ)
                                            (TAUP-REF13333 TAUP) (X-REF13334 X)
                                            (Y-REF13336 Y))
      (%%SLABRD M-REF13325 N-REF13326 NB-REF13327 A-REF13328 LDA-REF13329
                D-REF13330 E-REF13331 TAUQ-REF13332 TAUP-REF13333 X-REF13334
                LDX-REF13335 Y-REF13336 LDY-REF13337))))

(CFFI:DEFCFUN ("slacn2_" %%SLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (ISGN :POINTER)
  (EST :POINTER)
  (KASE :POINTER)
  (ISAVE :POINTER))

(COMMON-LISP:DEFUN %SLACN2 (N V X ISGN EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLACN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISGN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13338 ':INT32) (EST-REF13342 ':FLOAT)
                              (KASE-REF13343 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF13342 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF13343 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13339 V) (X-REF13340 X)
                                            (ISGN-REF13341 ISGN)
                                            (ISAVE-REF13344 ISAVE))
      (%%SLACN2 N-REF13338 V-REF13339 X-REF13340 ISGN-REF13341 EST-REF13342
                KASE-REF13343 ISAVE-REF13344))))

(CFFI:DEFCFUN ("slacon_" %%SLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (ISGN :POINTER)
  (EST :POINTER)
  (KASE :POINTER))

(COMMON-LISP:DEFUN %SLACON (N V X ISGN EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLACON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISGN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13345 ':INT32) (EST-REF13349 ':FLOAT)
                              (KASE-REF13350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13345 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF13349 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF13350 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13346 V) (X-REF13347 X)
                                            (ISGN-REF13348 ISGN))
      (%%SLACON N-REF13345 V-REF13346 X-REF13347 ISGN-REF13348 EST-REF13349
                KASE-REF13350))))

(CFFI:DEFCFUN ("slacpy_" %%SLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %SLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLACPY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13352 ':INT32) (N-REF13353 ':INT32)
                              (LDA-REF13355 ':INT32) (LDB-REF13357 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13352 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13353 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13355 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13357 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13354 A) (B-REF13356 B))
      (%%SLACPY UPLO M-REF13352 N-REF13353 A-REF13354 LDA-REF13355 B-REF13356
                LDB-REF13357))))

(CFFI:DEFCFUN ("sladiv_" %%SLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (P :POINTER)
  (Q :POINTER))

(COMMON-LISP:DEFUN %SLADIV (A B C D P Q)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLADIV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT P)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Q))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13358 ':FLOAT) (B-REF13359 ':FLOAT)
                              (C-REF13360 ':FLOAT) (D-REF13361 ':FLOAT)
                              (P-REF13362 ':FLOAT) (Q-REF13363 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13358 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13359 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13360 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF13361 :FLOAT) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF13362 :FLOAT) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF13363 :FLOAT) Q)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLADIV A-REF13358 B-REF13359 C-REF13360 D-REF13361 P-REF13362
                Q-REF13363))))

(CFFI:DEFCFUN ("slae2_" %%SLAE2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER))

(COMMON-LISP:DEFUN %SLAE2 (A B C RT1 RT2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAE2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13364 ':FLOAT) (B-REF13365 ':FLOAT)
                              (C-REF13366 ':FLOAT) (RT1-REF13367 ':FLOAT)
                              (RT2-REF13368 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13364 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13365 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13366 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF13367 :FLOAT) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF13368 :FLOAT) RT2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAE2 A-REF13364 B-REF13365 C-REF13366 RT1-REF13367 RT2-REF13368))))

(CFFI:DEFCFUN ("slaebz_" %%SLAEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (NITMAX :POINTER)
  (N :POINTER)
  (MMAX :POINTER)
  (MINP :POINTER)
  (NBMIN :POINTER)
  (ABSTOL :POINTER)
  (RELTOL :POINTER)
  (PIVMIN :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (NVAL :POINTER)
  (AB :POINTER)
  (C :POINTER)
  (MOUT :POINTER)
  (NAB :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAEBZ
                   (IJOB NITMAX N MMAX MINP NBMIN ABSTOL RELTOL PIVMIN D E E2
                    NVAL AB C MOUT NAB WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NITMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MINP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NBMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NVAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MOUT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF13369 ':INT32) (NITMAX-REF13370 ':INT32)
                              (N-REF13371 ':INT32) (MMAX-REF13372 ':INT32)
                              (MINP-REF13373 ':INT32) (NBMIN-REF13374 ':INT32)
                              (ABSTOL-REF13375 ':FLOAT)
                              (RELTOL-REF13376 ':FLOAT)
                              (PIVMIN-REF13377 ':FLOAT) (MOUT-REF13384 ':INT32)
                              (INFO-REF13388 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF13369 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF13370 :INT32) NITMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13371 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF13372 :INT32) MMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF13373 :INT32) MINP)
    (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF13374 :INT32) NBMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF13375 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF13376 :FLOAT) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13377 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF13384 :INT32) MOUT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13388 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13378 D) (E-REF13379 E)
                                            (E2-REF13380 E2)
                                            (NVAL-REF13381 NVAL)
                                            (AB-REF13382 AB) (C-REF13383 C)
                                            (NAB-REF13385 NAB)
                                            (WORK-REF13386 WORK)
                                            (IWORK-REF13387 IWORK))
      (%%SLAEBZ IJOB-REF13369 NITMAX-REF13370 N-REF13371 MMAX-REF13372
                MINP-REF13373 NBMIN-REF13374 ABSTOL-REF13375 RELTOL-REF13376
                PIVMIN-REF13377 D-REF13378 E-REF13379 E2-REF13380 NVAL-REF13381
                AB-REF13382 C-REF13383 MOUT-REF13384 NAB-REF13385 WORK-REF13386
                IWORK-REF13387 INFO-REF13388))))

(CFFI:DEFCFUN ("slaed0_" %%SLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (QSIZ :POINTER)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (QSTORE :POINTER)
  (LDQS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED0
                   (ICOMPQ QSIZ N D E Q LDQ QSTORE LDQS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13389 ':INT32) (QSIZ-REF13390 ':INT32)
                              (N-REF13391 ':INT32) (LDQ-REF13395 ':INT32)
                              (LDQS-REF13397 ':INT32) (INFO-REF13400 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13389 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13390 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13391 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13395 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF13397 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13400 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13392 D) (E-REF13393 E)
                                            (Q-REF13394 Q)
                                            (QSTORE-REF13396 QSTORE)
                                            (WORK-REF13398 WORK)
                                            (IWORK-REF13399 IWORK))
      (%%SLAED0 ICOMPQ-REF13389 QSIZ-REF13390 N-REF13391 D-REF13392 E-REF13393
                Q-REF13394 LDQ-REF13395 QSTORE-REF13396 LDQS-REF13397
                WORK-REF13398 IWORK-REF13399 INFO-REF13400))))

(CFFI:DEFCFUN ("slaed1_" %%SLAED1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED1 (N D Q LDQ INDXQ RHO CUTPNT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13401 ':INT32) (LDQ-REF13404 ':INT32)
                              (RHO-REF13406 ':FLOAT) (CUTPNT-REF13407 ':INT32)
                              (INFO-REF13410 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13401 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13404 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13406 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13407 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13410 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13402 D) (Q-REF13403 Q)
                                            (INDXQ-REF13405 INDXQ)
                                            (WORK-REF13408 WORK)
                                            (IWORK-REF13409 IWORK))
      (%%SLAED1 N-REF13401 D-REF13402 Q-REF13403 LDQ-REF13404 INDXQ-REF13405
                RHO-REF13406 CUTPNT-REF13407 WORK-REF13408 IWORK-REF13409
                INFO-REF13410))))

(CFFI:DEFCFUN ("slaed2_" %%SLAED2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (W :POINTER)
  (Q2 :POINTER)
  (INDX :POINTER)
  (INDXC :POINTER)
  (INDXP :POINTER)
  (COLTYP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED2
                   (K N N1 D Q LDQ INDXQ RHO Z DLAMDA W Q2 INDX INDXC INDXP
                    COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        COLTYP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13411 ':INT32) (N-REF13412 ':INT32)
                              (N1-REF13413 ':INT32) (LDQ-REF13416 ':INT32)
                              (RHO-REF13418 ':FLOAT) (INFO-REF13427 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13411 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13412 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13413 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13416 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13418 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13427 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13414 D) (Q-REF13415 Q)
                                            (INDXQ-REF13417 INDXQ)
                                            (Z-REF13419 Z)
                                            (DLAMDA-REF13420 DLAMDA)
                                            (W-REF13421 W) (Q2-REF13422 Q2)
                                            (INDX-REF13423 INDX)
                                            (INDXC-REF13424 INDXC)
                                            (INDXP-REF13425 INDXP)
                                            (COLTYP-REF13426 COLTYP))
      (%%SLAED2 K-REF13411 N-REF13412 N1-REF13413 D-REF13414 Q-REF13415
                LDQ-REF13416 INDXQ-REF13417 RHO-REF13418 Z-REF13419
                DLAMDA-REF13420 W-REF13421 Q2-REF13422 INDX-REF13423
                INDXC-REF13424 INDXP-REF13425 COLTYP-REF13426 INFO-REF13427))))

(CFFI:DEFCFUN ("slaed3_" %%SLAED3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (INDX :POINTER)
  (CTOT :POINTER)
  (W :POINTER)
  (S :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED3 (K N N1 D Q LDQ RHO DLAMDA Q2 INDX CTOT W S INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        CTOT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13428 ':INT32) (N-REF13429 ':INT32)
                              (N1-REF13430 ':INT32) (LDQ-REF13433 ':INT32)
                              (RHO-REF13434 ':FLOAT) (INFO-REF13441 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13428 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13429 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13430 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13433 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13434 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13441 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13431 D) (Q-REF13432 Q)
                                            (DLAMDA-REF13435 DLAMDA)
                                            (Q2-REF13436 Q2)
                                            (INDX-REF13437 INDX)
                                            (CTOT-REF13438 CTOT) (W-REF13439 W)
                                            (S-REF13440 S))
      (%%SLAED3 K-REF13428 N-REF13429 N1-REF13430 D-REF13431 Q-REF13432
                LDQ-REF13433 RHO-REF13434 DLAMDA-REF13435 Q2-REF13436
                INDX-REF13437 CTOT-REF13438 W-REF13439 S-REF13440
                INFO-REF13441))))

(CFFI:DEFCFUN ("slaed4_" %%SLAED4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DLAM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED4 (N I D Z DELTA RHO DLAM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DLAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13442 ':INT32) (I-REF13443 ':INT32)
                              (RHO-REF13447 ':FLOAT) (DLAM-REF13448 ':FLOAT)
                              (INFO-REF13449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13442 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF13443 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13447 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF13448 :FLOAT) DLAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13449 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13444 D) (Z-REF13445 Z)
                                            (DELTA-REF13446 DELTA))
      (%%SLAED4 N-REF13442 I-REF13443 D-REF13444 Z-REF13445 DELTA-REF13446
                RHO-REF13447 DLAM-REF13448 INFO-REF13449))))

(CFFI:DEFCFUN ("slaed5_" %%SLAED5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DLAM :POINTER))

(COMMON-LISP:DEFUN %SLAED5 (I D Z DELTA RHO DLAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DLAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF13450 ':INT32) (RHO-REF13454 ':FLOAT)
                              (DLAM-REF13455 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF13450 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13454 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF13455 :FLOAT) DLAM)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13451 D) (Z-REF13452 Z)
                                            (DELTA-REF13453 DELTA))
      (%%SLAED5 I-REF13450 D-REF13451 Z-REF13452 DELTA-REF13453 RHO-REF13454
                DLAM-REF13455))))

(CFFI:DEFCFUN ("slaed6_" %%SLAED6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (KNITER :POINTER)
  (ORGATI :POINTER)
  (RHO :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (FINIT :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED6 (KNITER ORGATI RHO D Z FINIT TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KNITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ORGATI)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT FINIT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF13456 ':INT32)
                              (ORGATI-REF13457 ':INT32) (RHO-REF13458 ':FLOAT)
                              (FINIT-REF13461 ':FLOAT) (TAU-REF13462 ':FLOAT)
                              (INFO-REF13463 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF13456 :INT32) KNITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF13457 :INT32) ORGATI)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13458 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF13461 :FLOAT) FINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF13462 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13463 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13459 D) (Z-REF13460 Z))
      (%%SLAED6 KNITER-REF13456 ORGATI-REF13457 RHO-REF13458 D-REF13459
                Z-REF13460 FINIT-REF13461 TAU-REF13462 INFO-REF13463))))

(CFFI:DEFCFUN ("slaed7_" %%SLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (QSTORE :POINTER)
  (QPTR :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED7
                   (ICOMPQ N QSIZ TLVLS CURLVL CURPBM D Q LDQ INDXQ RHO CUTPNT
                    QSTORE QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13464 ':INT32) (N-REF13465 ':INT32)
                              (QSIZ-REF13466 ':INT32) (TLVLS-REF13467 ':INT32)
                              (CURLVL-REF13468 ':INT32)
                              (CURPBM-REF13469 ':INT32) (LDQ-REF13472 ':INT32)
                              (RHO-REF13474 ':FLOAT) (CUTPNT-REF13475 ':INT32)
                              (INFO-REF13485 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13464 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13465 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13466 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF13467 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF13468 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF13469 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13472 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13474 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13475 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13485 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13470 D) (Q-REF13471 Q)
                                            (INDXQ-REF13473 INDXQ)
                                            (QSTORE-REF13476 QSTORE)
                                            (QPTR-REF13477 QPTR)
                                            (PRMPTR-REF13478 PRMPTR)
                                            (PERM-REF13479 PERM)
                                            (GIVPTR-REF13480 GIVPTR)
                                            (GIVCOL-REF13481 GIVCOL)
                                            (GIVNUM-REF13482 GIVNUM)
                                            (WORK-REF13483 WORK)
                                            (IWORK-REF13484 IWORK))
      (%%SLAED7 ICOMPQ-REF13464 N-REF13465 QSIZ-REF13466 TLVLS-REF13467
                CURLVL-REF13468 CURPBM-REF13469 D-REF13470 Q-REF13471
                LDQ-REF13472 INDXQ-REF13473 RHO-REF13474 CUTPNT-REF13475
                QSTORE-REF13476 QPTR-REF13477 PRMPTR-REF13478 PERM-REF13479
                GIVPTR-REF13480 GIVCOL-REF13481 GIVNUM-REF13482 WORK-REF13483
                IWORK-REF13484 INFO-REF13485))))

(CFFI:DEFCFUN ("slaed8_" %%SLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (K :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (W :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (INDXP :POINTER)
  (INDX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED8
                   (ICOMPQ K N QSIZ D Q LDQ INDXQ RHO CUTPNT Z DLAMDA Q2 LDQ2 W
                    PERM GIVPTR GIVCOL GIVNUM INDXP INDX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13486 ':INT32) (K-REF13487 ':INT32)
                              (N-REF13488 ':INT32) (QSIZ-REF13489 ':INT32)
                              (LDQ-REF13492 ':INT32) (RHO-REF13494 ':FLOAT)
                              (CUTPNT-REF13495 ':INT32) (LDQ2-REF13499 ':INT32)
                              (GIVPTR-REF13502 ':INT32) (INFO-REF13507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13486 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13487 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13488 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13489 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13492 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13494 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13495 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF13499 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF13502 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13490 D) (Q-REF13491 Q)
                                            (INDXQ-REF13493 INDXQ)
                                            (Z-REF13496 Z)
                                            (DLAMDA-REF13497 DLAMDA)
                                            (Q2-REF13498 Q2) (W-REF13500 W)
                                            (PERM-REF13501 PERM)
                                            (GIVCOL-REF13503 GIVCOL)
                                            (GIVNUM-REF13504 GIVNUM)
                                            (INDXP-REF13505 INDXP)
                                            (INDX-REF13506 INDX))
      (%%SLAED8 ICOMPQ-REF13486 K-REF13487 N-REF13488 QSIZ-REF13489 D-REF13490
                Q-REF13491 LDQ-REF13492 INDXQ-REF13493 RHO-REF13494
                CUTPNT-REF13495 Z-REF13496 DLAMDA-REF13497 Q2-REF13498
                LDQ2-REF13499 W-REF13500 PERM-REF13501 GIVPTR-REF13502
                GIVCOL-REF13503 GIVNUM-REF13504 INDXP-REF13505 INDX-REF13506
                INFO-REF13507))))

(CFFI:DEFCFUN ("slaed9_" %%SLAED9 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (K :POINTER)
  (KSTART :POINTER)
  (KSTOP :POINTER)
  (N :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (DLAMDA :POINTER)
  (W :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAED9 (K KSTART KSTOP N D Q LDQ RHO DLAMDA W S LDS INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED9)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTART)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13508 ':INT32) (KSTART-REF13509 ':INT32)
                              (KSTOP-REF13510 ':INT32) (N-REF13511 ':INT32)
                              (LDQ-REF13514 ':INT32) (RHO-REF13515 ':FLOAT)
                              (LDS-REF13519 ':INT32) (INFO-REF13520 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13508 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF13509 :INT32) KSTART)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF13510 :INT32) KSTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13511 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13514 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13515 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF13519 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13520 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13512 D) (Q-REF13513 Q)
                                            (DLAMDA-REF13516 DLAMDA)
                                            (W-REF13517 W) (S-REF13518 S))
      (%%SLAED9 K-REF13508 KSTART-REF13509 KSTOP-REF13510 N-REF13511 D-REF13512
                Q-REF13513 LDQ-REF13514 RHO-REF13515 DLAMDA-REF13516 W-REF13517
                S-REF13518 LDS-REF13519 INFO-REF13520))))

(CFFI:DEFCFUN ("slaeda_" %%SLAEDA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (Q :POINTER)
  (QPTR :POINTER)
  (Z :POINTER)
  (ZTEMP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAEDA
                   (N TLVLS CURLVL CURPBM PRMPTR PERM GIVPTR GIVCOL GIVNUM Q
                    QPTR Z ZTEMP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ZTEMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13521 ':INT32) (TLVLS-REF13522 ':INT32)
                              (CURLVL-REF13523 ':INT32)
                              (CURPBM-REF13524 ':INT32) (INFO-REF13534 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13521 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF13522 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF13523 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF13524 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13534 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF13525 PRMPTR)
                                            (PERM-REF13526 PERM)
                                            (GIVPTR-REF13527 GIVPTR)
                                            (GIVCOL-REF13528 GIVCOL)
                                            (GIVNUM-REF13529 GIVNUM)
                                            (Q-REF13530 Q) (QPTR-REF13531 QPTR)
                                            (Z-REF13532 Z)
                                            (ZTEMP-REF13533 ZTEMP))
      (%%SLAEDA N-REF13521 TLVLS-REF13522 CURLVL-REF13523 CURPBM-REF13524
                PRMPTR-REF13525 PERM-REF13526 GIVPTR-REF13527 GIVCOL-REF13528
                GIVNUM-REF13529 Q-REF13530 QPTR-REF13531 Z-REF13532
                ZTEMP-REF13533 INFO-REF13534))))

(CFFI:DEFCFUN ("slaein_" %%SLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RIGHTV :POINTER)
  (NOINIT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VR :POINTER)
  (VI :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (EPS3 :POINTER)
  (SMLNUM :POINTER)
  (BIGNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAEIN
                   (RIGHTV NOINIT N H LDH WR WI VR VI B LDB WORK EPS3 SMLNUM
                    BIGNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMLNUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BIGNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF13535 ':INT32)
                              (NOINIT-REF13536 ':INT32) (N-REF13537 ':INT32)
                              (LDH-REF13539 ':INT32) (WR-REF13540 ':FLOAT)
                              (WI-REF13541 ':FLOAT) (LDB-REF13545 ':INT32)
                              (EPS3-REF13547 ':FLOAT) (SMLNUM-REF13548 ':FLOAT)
                              (BIGNUM-REF13549 ':FLOAT) (INFO-REF13550 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF13535 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF13536 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13537 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13539 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF13540 :FLOAT) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13541 :FLOAT) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13545 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF13547 :FLOAT) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF13548 :FLOAT) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF13549 :FLOAT) BIGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13550 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13538 H) (VR-REF13542 VR)
                                            (VI-REF13543 VI) (B-REF13544 B)
                                            (WORK-REF13546 WORK))
      (%%SLAEIN RIGHTV-REF13535 NOINIT-REF13536 N-REF13537 H-REF13538
                LDH-REF13539 WR-REF13540 WI-REF13541 VR-REF13542 VI-REF13543
                B-REF13544 LDB-REF13545 WORK-REF13546 EPS3-REF13547
                SMLNUM-REF13548 BIGNUM-REF13549 INFO-REF13550))))

(CFFI:DEFCFUN ("slaev2_" %%SLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %SLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEV2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13551 ':FLOAT) (B-REF13552 ':FLOAT)
                              (C-REF13553 ':FLOAT) (RT1-REF13554 ':FLOAT)
                              (RT2-REF13555 ':FLOAT) (CS1-REF13556 ':FLOAT)
                              (SN1-REF13557 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13551 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13552 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13553 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF13554 :FLOAT) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF13555 :FLOAT) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF13556 :FLOAT) CS1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF13557 :FLOAT) SN1)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAEV2 A-REF13551 B-REF13552 C-REF13553 RT1-REF13554 RT2-REF13555
                CS1-REF13556 SN1-REF13557))))

(CFFI:DEFCFUN ("slaexc_" %%SLAEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (J1 :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAEXC (WANTQ N T LDT Q LDQ J1 N1 N2 WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF13558 ':INT32) (N-REF13559 ':INT32)
                              (LDT-REF13561 ':INT32) (LDQ-REF13563 ':INT32)
                              (J1-REF13564 ':INT32) (N1-REF13565 ':INT32)
                              (N2-REF13566 ':INT32) (INFO-REF13568 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF13558 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13559 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13561 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13563 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF13564 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13565 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF13566 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13568 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF13560 T) (Q-REF13562 Q)
                                            (WORK-REF13567 WORK))
      (%%SLAEXC WANTQ-REF13558 N-REF13559 T-REF13560 LDT-REF13561 Q-REF13562
                LDQ-REF13563 J1-REF13564 N1-REF13565 N2-REF13566 WORK-REF13567
                INFO-REF13568))))

(CFFI:DEFCFUN ("slag2_" %%SLAG2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SAFMIN :POINTER)
  (SCALE1 :POINTER)
  (SCALE2 :POINTER)
  (WR1 :POINTER)
  (WR2 :POINTER)
  (WI :POINTER))

(COMMON-LISP:DEFUN %SLAG2 (A LDA B LDB SAFMIN SCALE1 SCALE2 WR1 WR2 WI)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAG2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SAFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF13570 ':INT32) (LDB-REF13572 ':INT32)
                              (SAFMIN-REF13573 ':FLOAT)
                              (SCALE1-REF13574 ':FLOAT)
                              (SCALE2-REF13575 ':FLOAT) (WR1-REF13576 ':FLOAT)
                              (WR2-REF13577 ':FLOAT) (WI-REF13578 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13570 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13572 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF13573 :FLOAT) SAFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF13574 :FLOAT) SCALE1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF13575 :FLOAT) SCALE2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF13576 :FLOAT) WR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF13577 :FLOAT) WR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13578 :FLOAT) WI)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13569 A) (B-REF13571 B))
      (%%SLAG2 A-REF13569 LDA-REF13570 B-REF13571 LDB-REF13572 SAFMIN-REF13573
               SCALE1-REF13574 SCALE2-REF13575 WR1-REF13576 WR2-REF13577
               WI-REF13578))))

(CFFI:DEFCFUN ("slag2d_" %%SLAG2D :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAG2D (M N SA LDSA A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAG2D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13579 ':INT32) (N-REF13580 ':INT32)
                              (LDSA-REF13582 ':INT32) (LDA-REF13584 ':INT32)
                              (INFO-REF13585 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13579 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13580 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF13582 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13584 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13585 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SA-REF13581 SA) (A-REF13583 A))
      (%%SLAG2D M-REF13579 N-REF13580 SA-REF13581 LDSA-REF13582 A-REF13583
                LDA-REF13584 INFO-REF13585))))

(CFFI:DEFCFUN ("slags2_" %%SLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPPER :POINTER)
  (A1 :POINTER)
  (A2 :POINTER)
  (A3 :POINTER)
  (B1 :POINTER)
  (B2 :POINTER)
  (B3 :POINTER)
  (CSU :POINTER)
  (SNU :POINTER)
  (CSV :POINTER)
  (SNV :POINTER)
  (CSQ :POINTER)
  (SNQ :POINTER))

(COMMON-LISP:DEFUN %SLAGS2 (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSQ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF13586 ':INT32) (A1-REF13587 ':FLOAT)
                              (A2-REF13588 ':FLOAT) (A3-REF13589 ':FLOAT)
                              (B1-REF13590 ':FLOAT) (B2-REF13591 ':FLOAT)
                              (B3-REF13592 ':FLOAT) (CSU-REF13593 ':FLOAT)
                              (SNU-REF13594 ':FLOAT) (CSV-REF13595 ':FLOAT)
                              (SNV-REF13596 ':FLOAT) (CSQ-REF13597 ':FLOAT)
                              (SNQ-REF13598 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF13586 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF13587 :FLOAT) A1)
    (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF13588 :FLOAT) A2)
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF13589 :FLOAT) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF13590 :FLOAT) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF13591 :FLOAT) B2)
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF13592 :FLOAT) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF13593 :FLOAT) CSU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF13594 :FLOAT) SNU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF13595 :FLOAT) CSV)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF13596 :FLOAT) SNV)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF13597 :FLOAT) CSQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF13598 :FLOAT) SNQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAGS2 UPPER-REF13586 A1-REF13587 A2-REF13588 A3-REF13589 B1-REF13590
                B2-REF13591 B3-REF13592 CSU-REF13593 SNU-REF13594 CSV-REF13595
                SNV-REF13596 CSQ-REF13597 SNQ-REF13598))))

(CFFI:DEFCFUN ("slagtf_" %%SLAGTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LAMBDA :POINTER)
  (B :POINTER)
  (C :POINTER)
  (TOL :POINTER)
  (D :POINTER)
  (IN :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAGTF (N A LAMBDA B C TOL D IN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGTF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13599 ':INT32) (LAMBDA-REF13601 ':FLOAT)
                              (TOL-REF13604 ':FLOAT) (INFO-REF13607 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13599 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF13601 :FLOAT) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF13604 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13607 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13600 A) (B-REF13602 B)
                                            (C-REF13603 C) (D-REF13605 D)
                                            (IN-REF13606 IN))
      (%%SLAGTF N-REF13599 A-REF13600 LAMBDA-REF13601 B-REF13602 C-REF13603
                TOL-REF13604 D-REF13605 IN-REF13606 INFO-REF13607))))

(CFFI:DEFCFUN ("slagtm_" %%SLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (ALPHA :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (BETA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %SLAGTM (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGTM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13609 ':INT32) (NRHS-REF13610 ':INT32)
                              (ALPHA-REF13611 ':FLOAT) (LDX-REF13616 ':INT32)
                              (BETA-REF13617 ':FLOAT) (LDB-REF13619 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13609 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13610 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13611 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13616 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13617 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13619 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13612 DL) (D-REF13613 D)
                                            (DU-REF13614 DU) (X-REF13615 X)
                                            (B-REF13618 B))
      (%%SLAGTM TRANS N-REF13609 NRHS-REF13610 ALPHA-REF13611 DL-REF13612
                D-REF13613 DU-REF13614 X-REF13615 LDX-REF13616 BETA-REF13617
                B-REF13618 LDB-REF13619))))

(CFFI:DEFCFUN ("slagts_" %%SLAGTS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (N :POINTER)
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (IN :POINTER)
  (Y :POINTER)
  (TOL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAGTS (JOB N A B C D IN Y TOL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF13620 ':INT32) (N-REF13621 ':INT32)
                              (TOL-REF13628 ':FLOAT) (INFO-REF13629 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF13620 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13621 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF13628 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13629 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13622 A) (B-REF13623 B)
                                            (C-REF13624 C) (D-REF13625 D)
                                            (IN-REF13626 IN) (Y-REF13627 Y))
      (%%SLAGTS JOB-REF13620 N-REF13621 A-REF13622 B-REF13623 C-REF13624
                D-REF13625 IN-REF13626 Y-REF13627 TOL-REF13628 INFO-REF13629))))

(CFFI:DEFCFUN ("slagv2_" %%SLAGV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (CSL :POINTER)
  (SNL :POINTER)
  (CSR :POINTER)
  (SNR :POINTER))

(COMMON-LISP:DEFUN %SLAGV2 (A LDA B LDB ALPHAR ALPHAI BETA CSL SNL CSR SNR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNR))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF13631 ':INT32) (LDB-REF13633 ':INT32)
                              (CSL-REF13637 ':FLOAT) (SNL-REF13638 ':FLOAT)
                              (CSR-REF13639 ':FLOAT) (SNR-REF13640 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13631 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13633 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF13637 :FLOAT) CSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF13638 :FLOAT) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF13639 :FLOAT) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF13640 :FLOAT) SNR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13630 A) (B-REF13632 B)
                                            (ALPHAR-REF13634 ALPHAR)
                                            (ALPHAI-REF13635 ALPHAI)
                                            (BETA-REF13636 BETA))
      (%%SLAGV2 A-REF13630 LDA-REF13631 B-REF13632 LDB-REF13633 ALPHAR-REF13634
                ALPHAI-REF13635 BETA-REF13636 CSL-REF13637 SNL-REF13638
                CSR-REF13639 SNR-REF13640))))

(CFFI:DEFCFUN ("slahqr_" %%SLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAHQR
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAHQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13641 ':INT32) (WANTZ-REF13642 ':INT32)
                              (N-REF13643 ':INT32) (ILO-REF13644 ':INT32)
                              (IHI-REF13645 ':INT32) (LDH-REF13647 ':INT32)
                              (ILOZ-REF13650 ':INT32) (IHIZ-REF13651 ':INT32)
                              (LDZ-REF13653 ':INT32) (INFO-REF13654 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13641 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13642 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13643 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13644 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13645 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13647 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13650 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13651 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13653 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13654 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13646 H) (WR-REF13648 WR)
                                            (WI-REF13649 WI) (Z-REF13652 Z))
      (%%SLAHQR WANTT-REF13641 WANTZ-REF13642 N-REF13643 ILO-REF13644
                IHI-REF13645 H-REF13646 LDH-REF13647 WR-REF13648 WI-REF13649
                ILOZ-REF13650 IHIZ-REF13651 Z-REF13652 LDZ-REF13653
                INFO-REF13654))))

(CFFI:DEFCFUN ("slahr2_" %%SLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %SLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAHR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13655 ':INT32) (K-REF13656 ':INT32)
                              (NB-REF13657 ':INT32) (LDA-REF13659 ':INT32)
                              (LDT-REF13662 ':INT32) (LDY-REF13664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13655 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13656 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13657 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13659 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13662 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13664 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13658 A) (TAU-REF13660 TAU)
                                            (T-REF13661 T) (Y-REF13663 Y))
      (%%SLAHR2 N-REF13655 K-REF13656 NB-REF13657 A-REF13658 LDA-REF13659
                TAU-REF13660 T-REF13661 LDT-REF13662 Y-REF13663 LDY-REF13664))))

(CFFI:DEFCFUN ("slaic1_" %%SLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (J :POINTER)
  (X :POINTER)
  (SEST :POINTER)
  (W :POINTER)
  (GAMMA :POINTER)
  (SESTPR :POINTER)
  (S :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %SLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAIC1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GAMMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SESTPR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF13665 ':INT32) (J-REF13666 ':INT32)
                              (SEST-REF13668 ':FLOAT) (GAMMA-REF13670 ':FLOAT)
                              (SESTPR-REF13671 ':FLOAT) (S-REF13672 ':FLOAT)
                              (C-REF13673 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF13665 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF13666 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF13668 :FLOAT) SEST)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF13670 :FLOAT) GAMMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF13671 :FLOAT) SESTPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF13672 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13673 :FLOAT) C)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13667 X) (W-REF13669 W))
      (%%SLAIC1 JOB-REF13665 J-REF13666 X-REF13667 SEST-REF13668 W-REF13669
                GAMMA-REF13670 SESTPR-REF13671 S-REF13672 C-REF13673))))

(CFFI:DEFCFUN ("slaisnan_" %%SLAISNAN :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (SIN1 :POINTER)
  (SIN2 :POINTER))

(COMMON-LISP:DEFUN %SLAISNAN (SIN1 SIN2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAISNAN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN2))
  (CFFI:WITH-FOREIGN-OBJECTS ((SIN1-REF13674 ':FLOAT) (SIN2-REF13675 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SIN1-REF13674 :FLOAT) SIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIN2-REF13675 :FLOAT) SIN2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAISNAN SIN1-REF13674 SIN2-REF13675))))

(CFFI:DEFCFUN ("slaln2_" %%SLALN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (LTRANS :POINTER)
  (NA :POINTER)
  (NW :POINTER)
  (SMIN :POINTER)
  (CA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D1 :POINTER)
  (D2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (SCALE :POINTER)
  (XNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLALN2
                   (LTRANS NA NW SMIN CA A LDA D1 D2 B LDB WR WI X LDX SCALE
                    XNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT XNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF13676 ':INT32) (NA-REF13677 ':INT32)
                              (NW-REF13678 ':INT32) (SMIN-REF13679 ':FLOAT)
                              (CA-REF13680 ':FLOAT) (LDA-REF13682 ':INT32)
                              (D1-REF13683 ':FLOAT) (D2-REF13684 ':FLOAT)
                              (LDB-REF13686 ':INT32) (WR-REF13687 ':FLOAT)
                              (WI-REF13688 ':FLOAT) (LDX-REF13690 ':INT32)
                              (SCALE-REF13691 ':FLOAT) (XNORM-REF13692 ':FLOAT)
                              (INFO-REF13693 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF13676 :INT32) LTRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF13677 :INT32) NA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF13678 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF13679 :FLOAT) SMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF13680 :FLOAT) CA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13682 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF13683 :FLOAT) D1)
    (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF13684 :FLOAT) D2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13686 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF13687 :FLOAT) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13688 :FLOAT) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13690 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF13691 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF13692 :FLOAT) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13693 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13681 A) (B-REF13685 B)
                                            (X-REF13689 X))
      (%%SLALN2 LTRANS-REF13676 NA-REF13677 NW-REF13678 SMIN-REF13679
                CA-REF13680 A-REF13681 LDA-REF13682 D1-REF13683 D2-REF13684
                B-REF13685 LDB-REF13686 WR-REF13687 WI-REF13688 X-REF13689
                LDX-REF13690 SCALE-REF13691 XNORM-REF13692 INFO-REF13693))))

(CFFI:DEFCFUN ("slals0_" %%SLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLALS0
                   (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL
                    LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALS0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13694 ':INT32) (NL-REF13695 ':INT32)
                              (NR-REF13696 ':INT32) (SQRE-REF13697 ':INT32)
                              (NRHS-REF13698 ':INT32) (LDB-REF13700 ':INT32)
                              (LDBX-REF13702 ':INT32) (GIVPTR-REF13704 ':INT32)
                              (LDGCOL-REF13706 ':INT32)
                              (LDGNUM-REF13708 ':INT32) (K-REF13713 ':INT32)
                              (C-REF13714 ':FLOAT) (S-REF13715 ':FLOAT)
                              (INFO-REF13717 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13694 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF13695 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF13696 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF13697 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13698 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13700 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF13702 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF13704 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF13706 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF13708 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13713 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13714 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF13715 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13717 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF13699 B) (BX-REF13701 BX)
                                            (PERM-REF13703 PERM)
                                            (GIVCOL-REF13705 GIVCOL)
                                            (GIVNUM-REF13707 GIVNUM)
                                            (POLES-REF13709 POLES)
                                            (DIFL-REF13710 DIFL)
                                            (DIFR-REF13711 DIFR) (Z-REF13712 Z)
                                            (WORK-REF13716 WORK))
      (%%SLALS0 ICOMPQ-REF13694 NL-REF13695 NR-REF13696 SQRE-REF13697
                NRHS-REF13698 B-REF13699 LDB-REF13700 BX-REF13701 LDBX-REF13702
                PERM-REF13703 GIVPTR-REF13704 GIVCOL-REF13705 LDGCOL-REF13706
                GIVNUM-REF13707 LDGNUM-REF13708 POLES-REF13709 DIFL-REF13710
                DIFR-REF13711 Z-REF13712 K-REF13713 C-REF13714 S-REF13715
                WORK-REF13716 INFO-REF13717))))

(CFFI:DEFCFUN ("slalsa_" %%SLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLALSA
                   (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z
                    POLES GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13718 ':INT32)
                              (SMLSIZ-REF13719 ':INT32) (N-REF13720 ':INT32)
                              (NRHS-REF13721 ':INT32) (LDB-REF13723 ':INT32)
                              (LDBX-REF13725 ':INT32) (LDU-REF13727 ':INT32)
                              (LDGCOL-REF13736 ':INT32) (INFO-REF13743 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13718 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF13719 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13720 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13721 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13723 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF13725 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF13727 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF13736 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13743 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF13722 B) (BX-REF13724 BX)
                                            (U-REF13726 U) (VT-REF13728 VT)
                                            (K-REF13729 K) (DIFL-REF13730 DIFL)
                                            (DIFR-REF13731 DIFR) (Z-REF13732 Z)
                                            (POLES-REF13733 POLES)
                                            (GIVPTR-REF13734 GIVPTR)
                                            (GIVCOL-REF13735 GIVCOL)
                                            (PERM-REF13737 PERM)
                                            (GIVNUM-REF13738 GIVNUM)
                                            (C-REF13739 C) (S-REF13740 S)
                                            (WORK-REF13741 WORK)
                                            (IWORK-REF13742 IWORK))
      (%%SLALSA ICOMPQ-REF13718 SMLSIZ-REF13719 N-REF13720 NRHS-REF13721
                B-REF13722 LDB-REF13723 BX-REF13724 LDBX-REF13725 U-REF13726
                LDU-REF13727 VT-REF13728 K-REF13729 DIFL-REF13730 DIFR-REF13731
                Z-REF13732 POLES-REF13733 GIVPTR-REF13734 GIVCOL-REF13735
                LDGCOL-REF13736 PERM-REF13737 GIVNUM-REF13738 C-REF13739
                S-REF13740 WORK-REF13741 IWORK-REF13742 INFO-REF13743))))

(CFFI:DEFCFUN ("slalsd_" %%SLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLALSD
                   (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF13745 ':INT32) (N-REF13746 ':INT32)
                              (NRHS-REF13747 ':INT32) (LDB-REF13751 ':INT32)
                              (RCOND-REF13752 ':FLOAT) (RANK-REF13753 ':INT32)
                              (INFO-REF13756 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF13745 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13746 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13747 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13751 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13752 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF13753 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13756 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13748 D) (E-REF13749 E)
                                            (B-REF13750 B) (WORK-REF13754 WORK)
                                            (IWORK-REF13755 IWORK))
      (%%SLALSD UPLO SMLSIZ-REF13745 N-REF13746 NRHS-REF13747 D-REF13748
                E-REF13749 B-REF13750 LDB-REF13751 RCOND-REF13752 RANK-REF13753
                WORK-REF13754 IWORK-REF13755 INFO-REF13756))))

(CFFI:DEFCFUN ("slamrg_" %%SLAMRG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N1 :POINTER)
  (N2 :POINTER)
  (A :POINTER)
  (STRD1 :POINTER)
  (STRD2 :POINTER)
  (INDEX :POINTER))

(COMMON-LISP:DEFUN %SLAMRG (N1 N2 A STRD1 STRD2 INDEX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAMRG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) STRD1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) STRD2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF13757 ':INT32) (N2-REF13758 ':INT32)
                              (STRD1-REF13760 ':INT32) (STRD2-REF13761 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13757 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF13758 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF STRD1-REF13760 :INT32) STRD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF STRD2-REF13761 :INT32) STRD2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13759 A)
                                            (INDEX-REF13762 INDEX))
      (%%SLAMRG N1-REF13757 N2-REF13758 A-REF13759 STRD1-REF13760
                STRD2-REF13761 INDEX-REF13762))))

(CFFI:DEFCFUN ("slamswlq_" %%SLAMSWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAMSWLQ
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAMSWLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13765 ':INT32) (N-REF13766 ':INT32)
                              (K-REF13767 ':INT32) (MB-REF13768 ':INT32)
                              (NB-REF13769 ':INT32) (LDA-REF13771 ':INT32)
                              (LDT-REF13773 ':INT32) (LDC-REF13775 ':INT32)
                              (LWORK-REF13777 ':INT32) (INFO-REF13778 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13765 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13766 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13767 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13768 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13769 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13771 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13773 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13775 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13777 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13778 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13770 A) (T-REF13772 T)
                                            (C-REF13774 C) (WORK-REF13776 WORK))
      (%%SLAMSWLQ SIDE TRANS M-REF13765 N-REF13766 K-REF13767 MB-REF13768
                  NB-REF13769 A-REF13770 LDA-REF13771 T-REF13772 LDT-REF13773
                  C-REF13774 LDC-REF13775 WORK-REF13776 LWORK-REF13777
                  INFO-REF13778))))

(CFFI:DEFCFUN ("slamtsqr_" %%SLAMTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAMTSQR
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAMTSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13781 ':INT32) (N-REF13782 ':INT32)
                              (K-REF13783 ':INT32) (MB-REF13784 ':INT32)
                              (NB-REF13785 ':INT32) (LDA-REF13787 ':INT32)
                              (LDT-REF13789 ':INT32) (LDC-REF13791 ':INT32)
                              (LWORK-REF13793 ':INT32) (INFO-REF13794 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13781 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13782 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13783 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13784 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13785 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13787 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13789 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13791 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13793 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13794 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13786 A) (T-REF13788 T)
                                            (C-REF13790 C) (WORK-REF13792 WORK))
      (%%SLAMTSQR SIDE TRANS M-REF13781 N-REF13782 K-REF13783 MB-REF13784
                  NB-REF13785 A-REF13786 LDA-REF13787 T-REF13788 LDT-REF13789
                  C-REF13790 LDC-REF13791 WORK-REF13792 LWORK-REF13793
                  INFO-REF13794))))

(CFFI:DEFCFUN ("slaneg_" %%SLANEG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (N :POINTER)
  (D :POINTER)
  (LLD :POINTER)
  (SIGMA :POINTER)
  (PIVMIN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %SLANEG (N D LLD SIGMA PIVMIN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANEG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13795 ':INT32) (SIGMA-REF13798 ':FLOAT)
                              (PIVMIN-REF13799 ':FLOAT) (R-REF13800 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13795 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF13798 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13799 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF13800 :INT32) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13796 D) (LLD-REF13797 LLD))
      (%%SLANEG N-REF13795 D-REF13796 LLD-REF13797 SIGMA-REF13798
                PIVMIN-REF13799 R-REF13800))))

(CFFI:DEFCFUN ("slangb_" %%SLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANGB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13802 ':INT32) (KL-REF13803 ':INT32)
                              (KU-REF13804 ':INT32) (LDAB-REF13806 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13802 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13803 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13804 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13806 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13805 AB)
                                            (WORK-REF13807 WORK))
      (%%SLANGB NORM N-REF13802 KL-REF13803 KU-REF13804 AB-REF13805
                LDAB-REF13806 WORK-REF13807))))

(CFFI:DEFCFUN ("slange_" %%SLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13809 ':INT32) (N-REF13810 ':INT32)
                              (LDA-REF13812 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13809 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13810 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13812 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13811 A) (WORK-REF13813 WORK))
      (%%SLANGE NORM M-REF13809 N-REF13810 A-REF13811 LDA-REF13812
                WORK-REF13813))))

(CFFI:DEFCFUN ("slangt_" %%SLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER))

(COMMON-LISP:DEFUN %SLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANGT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13815 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13815 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13816 DL) (D-REF13817 D)
                                            (DU-REF13818 DU))
      (%%SLANGT NORM N-REF13815 DL-REF13816 D-REF13817 DU-REF13818))))

(CFFI:DEFCFUN ("slanhs_" %%SLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANHS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13820 ':INT32) (LDA-REF13822 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13820 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13822 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13821 A) (WORK-REF13823 WORK))
      (%%SLANHS NORM N-REF13820 A-REF13821 LDA-REF13822 WORK-REF13823))))

(CFFI:DEFCFUN ("slansb_" %%SLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13826 ':INT32) (K-REF13827 ':INT32)
                              (LDAB-REF13829 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13826 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13827 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13829 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13828 AB)
                                            (WORK-REF13830 WORK))
      (%%SLANSB NORM UPLO N-REF13826 K-REF13827 AB-REF13828 LDAB-REF13829
                WORK-REF13830))))

(CFFI:DEFCFUN ("slansf_" %%SLANSF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANSF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13834 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13834 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13835 A) (WORK-REF13836 WORK))
      (%%SLANSF NORM TRANSR UPLO N-REF13834 A-REF13835 WORK-REF13836))))

(CFFI:DEFCFUN ("slansp_" %%SLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13839 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13839 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13840 AP)
                                            (WORK-REF13841 WORK))
      (%%SLANSP NORM UPLO N-REF13839 AP-REF13840 WORK-REF13841))))

(CFFI:DEFCFUN ("slanst_" %%SLANST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER))

(COMMON-LISP:DEFUN %SLANST (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13843 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13843 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13844 D) (E-REF13845 E))
      (%%SLANST NORM N-REF13843 D-REF13844 E-REF13845))))

(CFFI:DEFCFUN ("slansy_" %%SLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13848 ':INT32) (LDA-REF13850 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13848 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13850 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13849 A) (WORK-REF13851 WORK))
      (%%SLANSY NORM UPLO N-REF13848 A-REF13849 LDA-REF13850 WORK-REF13851))))

(CFFI:DEFCFUN ("slantb_" %%SLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANTB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13855 ':INT32) (K-REF13856 ':INT32)
                              (LDAB-REF13858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13855 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13856 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13858 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13857 AB)
                                            (WORK-REF13859 WORK))
      (%%SLANTB NORM UPLO DIAG N-REF13855 K-REF13856 AB-REF13857 LDAB-REF13858
                WORK-REF13859))))

(CFFI:DEFCFUN ("slantp_" %%SLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13863 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13863 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13864 AP)
                                            (WORK-REF13865 WORK))
      (%%SLANTP NORM UPLO DIAG N-REF13863 AP-REF13864 WORK-REF13865))))

(CFFI:DEFCFUN ("slantr_" %%SLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13869 ':INT32) (N-REF13870 ':INT32)
                              (LDA-REF13872 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13869 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13870 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13872 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13871 A) (WORK-REF13873 WORK))
      (%%SLANTR NORM UPLO DIAG M-REF13869 N-REF13870 A-REF13871 LDA-REF13872
                WORK-REF13873))))

(CFFI:DEFCFUN ("slanv2_" %%SLANV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (RT1R :POINTER)
  (RT1I :POINTER)
  (RT2R :POINTER)
  (RT2I :POINTER)
  (CS :POINTER)
  (SN :POINTER))

(COMMON-LISP:DEFUN %SLANV2 (A B C D RT1R RT1I RT2R RT2I CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANV2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1R)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1I)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2R)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2I)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13874 ':FLOAT) (B-REF13875 ':FLOAT)
                              (C-REF13876 ':FLOAT) (D-REF13877 ':FLOAT)
                              (RT1R-REF13878 ':FLOAT) (RT1I-REF13879 ':FLOAT)
                              (RT2R-REF13880 ':FLOAT) (RT2I-REF13881 ':FLOAT)
                              (CS-REF13882 ':FLOAT) (SN-REF13883 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13874 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13875 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13876 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF13877 :FLOAT) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF13878 :FLOAT) RT1R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF13879 :FLOAT) RT1I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF13880 :FLOAT) RT2R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF13881 :FLOAT) RT2I)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF13882 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF13883 :FLOAT) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLANV2 A-REF13874 B-REF13875 C-REF13876 D-REF13877 RT1R-REF13878
                RT1I-REF13879 RT2R-REF13880 RT2I-REF13881 CS-REF13882
                SN-REF13883))))

(CFFI:DEFCFUN ("slapll_" %%SLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (SSMIN :POINTER))

(COMMON-LISP:DEFUN %SLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPLL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13884 ':INT32) (INCX-REF13886 ':INT32)
                              (INCY-REF13888 ':INT32) (SSMIN-REF13889 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13884 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13886 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13888 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF13889 :FLOAT) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13885 X) (Y-REF13887 Y))
      (%%SLAPLL N-REF13884 X-REF13885 INCX-REF13886 Y-REF13887 INCY-REF13888
                SSMIN-REF13889))))

(CFFI:DEFCFUN ("slapmr_" %%SLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %SLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF13890 ':INT32) (M-REF13891 ':INT32)
                              (N-REF13892 ':INT32) (LDX-REF13894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF13890 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13891 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13892 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13894 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13893 X) (K-REF13895 K))
      (%%SLAPMR FORWRD-REF13890 M-REF13891 N-REF13892 X-REF13893 LDX-REF13894
                K-REF13895))))

(CFFI:DEFCFUN ("slapmt_" %%SLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %SLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPMT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF13896 ':INT32) (M-REF13897 ':INT32)
                              (N-REF13898 ':INT32) (LDX-REF13900 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF13896 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13897 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13898 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13900 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13899 X) (K-REF13901 K))
      (%%SLAPMT FORWRD-REF13896 M-REF13897 N-REF13898 X-REF13899 LDX-REF13900
                K-REF13901))))

(CFFI:DEFCFUN ("slapy2_" %%SLAPY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (X :POINTER)
  (Y :POINTER))

(COMMON-LISP:DEFUN %SLAPY2 (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPY2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF13902 ':FLOAT) (Y-REF13903 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF13902 :FLOAT) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF13903 :FLOAT) Y)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAPY2 X-REF13902 Y-REF13903))))

(CFFI:DEFCFUN ("slapy3_" %%SLAPY3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :FLOAT
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER))

(COMMON-LISP:DEFUN %SLAPY3 (X Y Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPY3)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF13904 ':FLOAT) (Y-REF13905 ':FLOAT)
                              (Z-REF13906 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF13904 :FLOAT) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF13905 :FLOAT) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF13906 :FLOAT) Z)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAPY3 X-REF13904 Y-REF13905 Z-REF13906))))

(CFFI:DEFCFUN ("slaqgb_" %%SLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQGB (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQGB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13907 ':INT32) (N-REF13908 ':INT32)
                              (KL-REF13909 ':INT32) (KU-REF13910 ':INT32)
                              (LDAB-REF13912 ':INT32) (ROWCND-REF13915 ':FLOAT)
                              (COLCND-REF13916 ':FLOAT) (AMAX-REF13917 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13907 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13908 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13909 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13910 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13912 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF13915 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF13916 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13917 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13911 AB) (R-REF13913 R)
                                            (C-REF13914 C))
      (%%SLAQGB M-REF13907 N-REF13908 KL-REF13909 KU-REF13910 AB-REF13911
                LDAB-REF13912 R-REF13913 C-REF13914 ROWCND-REF13915
                COLCND-REF13916 AMAX-REF13917 EQUED))))

(CFFI:DEFCFUN ("slaqge_" %%SLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13919 ':INT32) (N-REF13920 ':INT32)
                              (LDA-REF13922 ':INT32) (ROWCND-REF13925 ':FLOAT)
                              (COLCND-REF13926 ':FLOAT) (AMAX-REF13927 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13919 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13920 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13922 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF13925 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF13926 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13927 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13921 A) (R-REF13923 R)
                                            (C-REF13924 C))
      (%%SLAQGE M-REF13919 N-REF13920 A-REF13921 LDA-REF13922 R-REF13923
                C-REF13924 ROWCND-REF13925 COLCND-REF13926 AMAX-REF13927
                EQUED))))

(CFFI:DEFCFUN ("slaqp2_" %%SLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13929 ':INT32) (N-REF13930 ':INT32)
                              (OFFSET-REF13931 ':INT32) (LDA-REF13933 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13929 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF13931 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13933 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13932 A) (JPVT-REF13934 JPVT)
                                            (TAU-REF13935 TAU)
                                            (VN1-REF13936 VN1)
                                            (VN2-REF13937 VN2)
                                            (WORK-REF13938 WORK))
      (%%SLAQP2 M-REF13929 N-REF13930 OFFSET-REF13931 A-REF13932 LDA-REF13933
                JPVT-REF13934 TAU-REF13935 VN1-REF13936 VN2-REF13937
                WORK-REF13938))))

(CFFI:DEFCFUN ("slaqps_" %%SLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (AUXV :POINTER)
  (F :POINTER)
  (LDF :POINTER))

(COMMON-LISP:DEFUN %SLAQPS (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQPS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AUXV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13939 ':INT32) (N-REF13940 ':INT32)
                              (OFFSET-REF13941 ':INT32) (NB-REF13942 ':INT32)
                              (KB-REF13943 ':INT32) (LDA-REF13945 ':INT32)
                              (LDF-REF13952 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13939 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13940 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF13941 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13942 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF13943 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13945 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF13952 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13944 A) (JPVT-REF13946 JPVT)
                                            (TAU-REF13947 TAU)
                                            (VN1-REF13948 VN1)
                                            (VN2-REF13949 VN2)
                                            (AUXV-REF13950 AUXV) (F-REF13951 F))
      (%%SLAQPS M-REF13939 N-REF13940 OFFSET-REF13941 NB-REF13942 KB-REF13943
                A-REF13944 LDA-REF13945 JPVT-REF13946 TAU-REF13947 VN1-REF13948
                VN2-REF13949 AUXV-REF13950 F-REF13951 LDF-REF13952))))

(CFFI:DEFCFUN ("slaqr0_" %%SLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAQR0
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13953 ':INT32) (WANTZ-REF13954 ':INT32)
                              (N-REF13955 ':INT32) (ILO-REF13956 ':INT32)
                              (IHI-REF13957 ':INT32) (LDH-REF13959 ':INT32)
                              (ILOZ-REF13962 ':INT32) (IHIZ-REF13963 ':INT32)
                              (LDZ-REF13965 ':INT32) (LWORK-REF13967 ':INT32)
                              (INFO-REF13968 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13953 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13954 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13955 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13956 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13957 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13959 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13962 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13963 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13965 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13967 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13968 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13958 H) (WR-REF13960 WR)
                                            (WI-REF13961 WI) (Z-REF13964 Z)
                                            (WORK-REF13966 WORK))
      (%%SLAQR0 WANTT-REF13953 WANTZ-REF13954 N-REF13955 ILO-REF13956
                IHI-REF13957 H-REF13958 LDH-REF13959 WR-REF13960 WI-REF13961
                ILOZ-REF13962 IHIZ-REF13963 Z-REF13964 LDZ-REF13965
                WORK-REF13966 LWORK-REF13967 INFO-REF13968))))

(CFFI:DEFCFUN ("slaqr1_" %%SLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (SR1 :POINTER)
  (SI1 :POINTER)
  (SR2 :POINTER)
  (SI2 :POINTER)
  (V :POINTER))

(COMMON-LISP:DEFUN %SLAQR1 (N H LDH SR1 SI1 SR2 SI2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SR1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SI1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SR2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SI2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13969 ':INT32) (LDH-REF13971 ':INT32)
                              (SR1-REF13972 ':FLOAT) (SI1-REF13973 ':FLOAT)
                              (SR2-REF13974 ':FLOAT) (SI2-REF13975 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13969 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13971 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF13972 :FLOAT) SR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF13973 :FLOAT) SI1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF13974 :FLOAT) SR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF13975 :FLOAT) SI2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13970 H) (V-REF13976 V))
      (%%SLAQR1 N-REF13969 H-REF13970 LDH-REF13971 SR1-REF13972 SI1-REF13973
                SR2-REF13974 SI2-REF13975 V-REF13976))))

(CFFI:DEFCFUN ("slaqr2_" %%SLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %SLAQR2
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
                    SI V LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13977 ':INT32) (WANTZ-REF13978 ':INT32)
                              (N-REF13979 ':INT32) (KTOP-REF13980 ':INT32)
                              (KBOT-REF13981 ':INT32) (NW-REF13982 ':INT32)
                              (LDH-REF13984 ':INT32) (ILOZ-REF13985 ':INT32)
                              (IHIZ-REF13986 ':INT32) (LDZ-REF13988 ':INT32)
                              (NS-REF13989 ':INT32) (ND-REF13990 ':INT32)
                              (LDV-REF13994 ':INT32) (NH-REF13995 ':INT32)
                              (LDT-REF13997 ':INT32) (NV-REF13998 ':INT32)
                              (LDWV-REF14000 ':INT32) (LWORK-REF14002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13977 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13978 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF13980 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF13981 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF13982 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13984 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13985 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13986 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13988 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF13989 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF13990 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF13994 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF13995 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13997 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF13998 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14000 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14002 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13983 H) (Z-REF13987 Z)
                                            (SR-REF13991 SR) (SI-REF13992 SI)
                                            (V-REF13993 V) (T-REF13996 T)
                                            (WV-REF13999 WV)
                                            (WORK-REF14001 WORK))
      (%%SLAQR2 WANTT-REF13977 WANTZ-REF13978 N-REF13979 KTOP-REF13980
                KBOT-REF13981 NW-REF13982 H-REF13983 LDH-REF13984 ILOZ-REF13985
                IHIZ-REF13986 Z-REF13987 LDZ-REF13988 NS-REF13989 ND-REF13990
                SR-REF13991 SI-REF13992 V-REF13993 LDV-REF13994 NH-REF13995
                T-REF13996 LDT-REF13997 NV-REF13998 WV-REF13999 LDWV-REF14000
                WORK-REF14001 LWORK-REF14002))))

(CFFI:DEFCFUN ("slaqr3_" %%SLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %SLAQR3
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
                    SI V LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14003 ':INT32) (WANTZ-REF14004 ':INT32)
                              (N-REF14005 ':INT32) (KTOP-REF14006 ':INT32)
                              (KBOT-REF14007 ':INT32) (NW-REF14008 ':INT32)
                              (LDH-REF14010 ':INT32) (ILOZ-REF14011 ':INT32)
                              (IHIZ-REF14012 ':INT32) (LDZ-REF14014 ':INT32)
                              (NS-REF14015 ':INT32) (ND-REF14016 ':INT32)
                              (LDV-REF14020 ':INT32) (NH-REF14021 ':INT32)
                              (LDT-REF14023 ':INT32) (NV-REF14024 ':INT32)
                              (LDWV-REF14026 ':INT32) (LWORK-REF14028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14003 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14004 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14005 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF14006 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF14007 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF14008 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14010 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14011 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14012 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14014 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF14015 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF14016 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14020 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF14021 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14023 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF14024 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14026 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14028 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF14009 H) (Z-REF14013 Z)
                                            (SR-REF14017 SR) (SI-REF14018 SI)
                                            (V-REF14019 V) (T-REF14022 T)
                                            (WV-REF14025 WV)
                                            (WORK-REF14027 WORK))
      (%%SLAQR3 WANTT-REF14003 WANTZ-REF14004 N-REF14005 KTOP-REF14006
                KBOT-REF14007 NW-REF14008 H-REF14009 LDH-REF14010 ILOZ-REF14011
                IHIZ-REF14012 Z-REF14013 LDZ-REF14014 NS-REF14015 ND-REF14016
                SR-REF14017 SI-REF14018 V-REF14019 LDV-REF14020 NH-REF14021
                T-REF14022 LDT-REF14023 NV-REF14024 WV-REF14025 LDWV-REF14026
                WORK-REF14027 LWORK-REF14028))))

(CFFI:DEFCFUN ("slaqr4_" %%SLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAQR4
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14029 ':INT32) (WANTZ-REF14030 ':INT32)
                              (N-REF14031 ':INT32) (ILO-REF14032 ':INT32)
                              (IHI-REF14033 ':INT32) (LDH-REF14035 ':INT32)
                              (ILOZ-REF14038 ':INT32) (IHIZ-REF14039 ':INT32)
                              (LDZ-REF14041 ':INT32) (LWORK-REF14043 ':INT32)
                              (INFO-REF14044 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14029 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14030 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF14032 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF14033 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14035 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14038 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14039 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14041 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14043 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14044 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF14034 H) (WR-REF14036 WR)
                                            (WI-REF14037 WI) (Z-REF14040 Z)
                                            (WORK-REF14042 WORK))
      (%%SLAQR4 WANTT-REF14029 WANTZ-REF14030 N-REF14031 ILO-REF14032
                IHI-REF14033 H-REF14034 LDH-REF14035 WR-REF14036 WI-REF14037
                ILOZ-REF14038 IHIZ-REF14039 Z-REF14040 LDZ-REF14041
                WORK-REF14042 LWORK-REF14043 INFO-REF14044))))

(CFFI:DEFCFUN ("slaqr5_" %%SLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (KACC22 :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NSHFTS :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (NH :POINTER)
  (WH :POINTER)
  (LDWH :POINTER))

(COMMON-LISP:DEFUN %SLAQR5
                   (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS SR SI H LDH ILOZ IHIZ
                    Z LDZ V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14045 ':INT32) (WANTZ-REF14046 ':INT32)
                              (KACC22-REF14047 ':INT32) (N-REF14048 ':INT32)
                              (KTOP-REF14049 ':INT32) (KBOT-REF14050 ':INT32)
                              (NSHFTS-REF14051 ':INT32) (LDH-REF14055 ':INT32)
                              (ILOZ-REF14056 ':INT32) (IHIZ-REF14057 ':INT32)
                              (LDZ-REF14059 ':INT32) (LDV-REF14061 ':INT32)
                              (LDU-REF14063 ':INT32) (NV-REF14064 ':INT32)
                              (LDWV-REF14066 ':INT32) (NH-REF14067 ':INT32)
                              (LDWH-REF14069 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14045 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14046 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF14047 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14048 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF14049 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF14050 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF14051 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14055 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14056 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14057 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14059 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14061 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14063 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF14064 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14066 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF14067 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF14069 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF14052 SR) (SI-REF14053 SI)
                                            (H-REF14054 H) (Z-REF14058 Z)
                                            (V-REF14060 V) (U-REF14062 U)
                                            (WV-REF14065 WV) (WH-REF14068 WH))
      (%%SLAQR5 WANTT-REF14045 WANTZ-REF14046 KACC22-REF14047 N-REF14048
                KTOP-REF14049 KBOT-REF14050 NSHFTS-REF14051 SR-REF14052
                SI-REF14053 H-REF14054 LDH-REF14055 ILOZ-REF14056 IHIZ-REF14057
                Z-REF14058 LDZ-REF14059 V-REF14060 LDV-REF14061 U-REF14062
                LDU-REF14063 NV-REF14064 WV-REF14065 LDWV-REF14066 NH-REF14067
                WH-REF14068 LDWH-REF14069))))

(CFFI:DEFCFUN ("slaqsb_" %%SLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14071 ':INT32) (KD-REF14072 ':INT32)
                              (LDAB-REF14074 ':INT32) (SCOND-REF14076 ':FLOAT)
                              (AMAX-REF14077 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14071 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14072 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14074 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14076 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14077 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14073 AB) (S-REF14075 S))
      (%%SLAQSB UPLO N-REF14071 KD-REF14072 AB-REF14073 LDAB-REF14074
                S-REF14075 SCOND-REF14076 AMAX-REF14077 EQUED))))

(CFFI:DEFCFUN ("slaqsp_" %%SLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14080 ':INT32) (SCOND-REF14083 ':FLOAT)
                              (AMAX-REF14084 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14080 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14083 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14084 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14081 AP) (S-REF14082 S))
      (%%SLAQSP UPLO N-REF14080 AP-REF14081 S-REF14082 SCOND-REF14083
                AMAX-REF14084 EQUED))))

(CFFI:DEFCFUN ("slaqsy_" %%SLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %SLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14087 ':INT32) (LDA-REF14089 ':INT32)
                              (SCOND-REF14091 ':FLOAT) (AMAX-REF14092 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14087 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14089 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14091 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14092 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14088 A) (S-REF14090 S))
      (%%SLAQSY UPLO N-REF14087 A-REF14088 LDA-REF14089 S-REF14090
                SCOND-REF14091 AMAX-REF14092 EQUED))))

(CFFI:DEFCFUN ("slaqtr_" %%SLAQTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (LTRAN :POINTER)
  (LREAL :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (B :POINTER)
  (W :POINTER)
  (SCALE :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLAQTR (LTRAN LREAL N T LDT B W SCALE X WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQTR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRAN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LREAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT W)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF14094 ':INT32) (LREAL-REF14095 ':INT32)
                              (N-REF14096 ':INT32) (LDT-REF14098 ':INT32)
                              (W-REF14100 ':FLOAT) (SCALE-REF14101 ':FLOAT)
                              (INFO-REF14104 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF14094 :INT32) LTRAN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF14095 :INT32) LREAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14096 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14098 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF14100 :FLOAT) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14101 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14104 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF14097 T) (B-REF14099 B)
                                            (X-REF14102 X) (WORK-REF14103 WORK))
      (%%SLAQTR LTRAN-REF14094 LREAL-REF14095 N-REF14096 T-REF14097
                LDT-REF14098 B-REF14099 W-REF14100 SCALE-REF14101 X-REF14102
                WORK-REF14103 INFO-REF14104))))

(CFFI:DEFCFUN ("slar1v_" %%SLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (B1 :POINTER)
  (BN :POINTER)
  (LAMBDA :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (LLD :POINTER)
  (PIVMIN :POINTER)
  (GAPTOL :POINTER)
  (Z :POINTER)
  (WANTNC :POINTER)
  (NEGCNT :POINTER)
  (ZTZ :POINTER)
  (MINGMA :POINTER)
  (R :POINTER)
  (ISUPPZ :POINTER)
  (NRMINV :POINTER)
  (RESID :POINTER)
  (RQCORR :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLAR1V
                   (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ
                    MINGMA R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAR1V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GAPTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ZTZ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINGMA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT NRMINV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RESID)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RQCORR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14105 ':INT32) (B1-REF14106 ':INT32)
                              (BN-REF14107 ':INT32) (LAMBDA-REF14108 ':FLOAT)
                              (PIVMIN-REF14113 ':FLOAT)
                              (GAPTOL-REF14114 ':FLOAT)
                              (WANTNC-REF14116 ':INT32)
                              (NEGCNT-REF14117 ':INT32) (ZTZ-REF14118 ':FLOAT)
                              (MINGMA-REF14119 ':FLOAT) (R-REF14120 ':INT32)
                              (NRMINV-REF14122 ':FLOAT)
                              (RESID-REF14123 ':FLOAT)
                              (RQCORR-REF14124 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14105 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF14106 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF14107 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF14108 :FLOAT) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14113 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF14114 :FLOAT) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF14116 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF14117 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF14118 :FLOAT) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF14119 :FLOAT) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14120 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF14122 :FLOAT) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF14123 :FLOAT) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF14124 :FLOAT) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14109 D) (L-REF14110 L)
                                            (LD-REF14111 LD) (LLD-REF14112 LLD)
                                            (Z-REF14115 Z)
                                            (ISUPPZ-REF14121 ISUPPZ)
                                            (WORK-REF14125 WORK))
      (%%SLAR1V N-REF14105 B1-REF14106 BN-REF14107 LAMBDA-REF14108 D-REF14109
                L-REF14110 LD-REF14111 LLD-REF14112 PIVMIN-REF14113
                GAPTOL-REF14114 Z-REF14115 WANTNC-REF14116 NEGCNT-REF14117
                ZTZ-REF14118 MINGMA-REF14119 R-REF14120 ISUPPZ-REF14121
                NRMINV-REF14122 RESID-REF14123 RQCORR-REF14124 WORK-REF14125))))

(CFFI:DEFCFUN ("slar2v_" %%SLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER)
  (INCX :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %SLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAR2V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14126 ':INT32) (INCX-REF14130 ':INT32)
                              (INCC-REF14133 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14126 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14130 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14133 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14127 X) (Y-REF14128 Y)
                                            (Z-REF14129 Z) (C-REF14131 C)
                                            (S-REF14132 S))
      (%%SLAR2V N-REF14126 X-REF14127 Y-REF14128 Z-REF14129 INCX-REF14130
                C-REF14131 S-REF14132 INCC-REF14133))))

(CFFI:DEFCFUN ("slarf_" %%SLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14135 ':INT32) (N-REF14136 ':INT32)
                              (INCV-REF14138 ':INT32) (TAU-REF14139 ':FLOAT)
                              (LDC-REF14141 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14135 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14136 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14138 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14139 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14141 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14137 V) (C-REF14140 C)
                                            (WORK-REF14142 WORK))
      (%%SLARF SIDE M-REF14135 N-REF14136 V-REF14137 INCV-REF14138 TAU-REF14139
               C-REF14140 LDC-REF14141 WORK-REF14142))))

(CFFI:DEFCFUN ("slarfb_" %%SLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %SLARFB
                   (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14147 ':INT32) (N-REF14148 ':INT32)
                              (K-REF14149 ':INT32) (LDV-REF14151 ':INT32)
                              (LDT-REF14153 ':INT32) (LDC-REF14155 ':INT32)
                              (LDWORK-REF14157 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14147 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14148 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14149 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14151 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14153 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14155 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14157 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14150 V) (T-REF14152 T)
                                            (C-REF14154 C) (WORK-REF14156 WORK))
      (%%SLARFB SIDE TRANS DIRECT STOREV M-REF14147 N-REF14148 K-REF14149
                V-REF14150 LDV-REF14151 T-REF14152 LDT-REF14153 C-REF14154
                LDC-REF14155 WORK-REF14156 LDWORK-REF14157))))

(CFFI:DEFCFUN ("slarfg_" %%SLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %SLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14158 ':INT32) (ALPHA-REF14159 ':FLOAT)
                              (INCX-REF14161 ':INT32) (TAU-REF14162 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14158 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14159 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14161 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14162 :FLOAT) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14160 X))
      (%%SLARFG N-REF14158 ALPHA-REF14159 X-REF14160 INCX-REF14161
                TAU-REF14162))))

(CFFI:DEFCFUN ("slarfgp_" %%SLARFGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %SLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFGP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14163 ':INT32) (ALPHA-REF14164 ':FLOAT)
                              (INCX-REF14166 ':INT32) (TAU-REF14167 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14163 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14164 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14166 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14167 :FLOAT) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14165 X))
      (%%SLARFGP N-REF14163 ALPHA-REF14164 X-REF14165 INCX-REF14166
                 TAU-REF14167))))

(CFFI:DEFCFUN ("slarft_" %%SLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %SLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14170 ':INT32) (K-REF14171 ':INT32)
                              (LDV-REF14173 ':INT32) (LDT-REF14176 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14170 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14171 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14173 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14176 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14172 V) (TAU-REF14174 TAU)
                                            (T-REF14175 T))
      (%%SLARFT DIRECT STOREV N-REF14170 K-REF14171 V-REF14172 LDV-REF14173
                TAU-REF14174 T-REF14175 LDT-REF14176))))

(CFFI:DEFCFUN ("slarfx_" %%SLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14178 ':INT32) (N-REF14179 ':INT32)
                              (TAU-REF14181 ':FLOAT) (LDC-REF14183 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14178 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14179 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14181 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14183 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14180 V) (C-REF14182 C)
                                            (WORK-REF14184 WORK))
      (%%SLARFX SIDE M-REF14178 N-REF14179 V-REF14180 TAU-REF14181 C-REF14182
                LDC-REF14183 WORK-REF14184))))

(CFFI:DEFCFUN ("slarfy_" %%SLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14186 ':INT32) (INCV-REF14188 ':INT32)
                              (TAU-REF14189 ':FLOAT) (LDC-REF14191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14186 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14188 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14189 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14191 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14187 V) (C-REF14190 C)
                                            (WORK-REF14192 WORK))
      (%%SLARFY UPLO N-REF14186 V-REF14187 INCV-REF14188 TAU-REF14189
                C-REF14190 LDC-REF14191 WORK-REF14192))))

(CFFI:DEFCFUN ("slargv_" %%SLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %SLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14193 ':INT32) (INCX-REF14195 ':INT32)
                              (INCY-REF14197 ':INT32) (INCC-REF14199 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14193 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14195 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF14197 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14199 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14194 X) (Y-REF14196 Y)
                                            (C-REF14198 C))
      (%%SLARGV N-REF14193 X-REF14194 INCX-REF14195 Y-REF14196 INCY-REF14197
                C-REF14198 INCC-REF14199))))

(CFFI:DEFCFUN ("slarnv_" %%SLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IDIST :POINTER)
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %SLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARNV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF14200 ':INT32) (N-REF14202 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF14200 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14202 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF14201 ISEED)
                                            (X-REF14203 X))
      (%%SLARNV IDIST-REF14200 ISEED-REF14201 N-REF14202 X-REF14203))))

(CFFI:DEFCFUN ("slarra_" %%SLARRA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (SPLTOL :POINTER)
  (TNRM :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRA (N D E E2 SPLTOL TNRM NSPLIT ISPLIT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPLTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TNRM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14204 ':INT32) (SPLTOL-REF14208 ':FLOAT)
                              (TNRM-REF14209 ':FLOAT) (NSPLIT-REF14210 ':INT32)
                              (INFO-REF14212 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14204 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF14208 :FLOAT) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF14209 :FLOAT) TNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14210 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14212 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14205 D) (E-REF14206 E)
                                            (E2-REF14207 E2)
                                            (ISPLIT-REF14211 ISPLIT))
      (%%SLARRA N-REF14204 D-REF14205 E-REF14206 E2-REF14207 SPLTOL-REF14208
                TNRM-REF14209 NSPLIT-REF14210 ISPLIT-REF14211 INFO-REF14212))))

(CFFI:DEFCFUN ("slarrb_" %%SLARRB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (LLD :POINTER)
  (IFIRST :POINTER)
  (ILAST :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (OFFSET :POINTER)
  (W :POINTER)
  (WGAP :POINTER)
  (WERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (PIVMIN :POINTER)
  (SPDIAM :POINTER)
  (TWIST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRB
                   (N D LLD IFIRST ILAST RTOL1 RTOL2 OFFSET W WGAP WERR WORK
                    IWORK PIVMIN SPDIAM TWIST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TWIST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14213 ':INT32) (IFIRST-REF14216 ':INT32)
                              (ILAST-REF14217 ':INT32) (RTOL1-REF14218 ':FLOAT)
                              (RTOL2-REF14219 ':FLOAT)
                              (OFFSET-REF14220 ':INT32)
                              (PIVMIN-REF14226 ':FLOAT)
                              (SPDIAM-REF14227 ':FLOAT)
                              (TWIST-REF14228 ':INT32) (INFO-REF14229 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14213 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF14216 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF14217 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14218 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14219 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF14220 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14226 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14227 :FLOAT) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF14228 :INT32) TWIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14229 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14214 D) (LLD-REF14215 LLD)
                                            (W-REF14221 W) (WGAP-REF14222 WGAP)
                                            (WERR-REF14223 WERR)
                                            (WORK-REF14224 WORK)
                                            (IWORK-REF14225 IWORK))
      (%%SLARRB N-REF14213 D-REF14214 LLD-REF14215 IFIRST-REF14216
                ILAST-REF14217 RTOL1-REF14218 RTOL2-REF14219 OFFSET-REF14220
                W-REF14221 WGAP-REF14222 WERR-REF14223 WORK-REF14224
                IWORK-REF14225 PIVMIN-REF14226 SPDIAM-REF14227 TWIST-REF14228
                INFO-REF14229))))

(CFFI:DEFCFUN ("slarrc_" %%SLARRC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBT :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (E :POINTER)
  (PIVMIN :POINTER)
  (EIGCNT :POINTER)
  (LCNT :POINTER)
  (RCNT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRC (JOBT N VL VU D E PIVMIN EIGCNT LCNT RCNT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) EIGCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14231 ':INT32) (VL-REF14232 ':FLOAT)
                              (VU-REF14233 ':FLOAT) (PIVMIN-REF14236 ':FLOAT)
                              (EIGCNT-REF14237 ':INT32) (LCNT-REF14238 ':INT32)
                              (RCNT-REF14239 ':INT32) (INFO-REF14240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14231 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14232 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14233 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14236 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF14237 :INT32) EIGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF14238 :INT32) LCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF14239 :INT32) RCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14240 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14234 D) (E-REF14235 E))
      (%%SLARRC JOBT N-REF14231 VL-REF14232 VU-REF14233 D-REF14234 E-REF14235
                PIVMIN-REF14236 EIGCNT-REF14237 LCNT-REF14238 RCNT-REF14239
                INFO-REF14240))))

(CFFI:DEFCFUN ("slarrd_" %%SLARRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (ORDER :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (GERS :POINTER)
  (RELTOL :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (PIVMIN :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WL :POINTER)
  (WU :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRD
                   (RANGE ORDER N VL VU IL IU GERS RELTOL D E E2 PIVMIN NSPLIT
                    ISPLIT M W WERR WL WU IBLOCK INDEXW WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14243 ':INT32) (VL-REF14244 ':FLOAT)
                              (VU-REF14245 ':FLOAT) (IL-REF14246 ':INT32)
                              (IU-REF14247 ':INT32) (RELTOL-REF14249 ':FLOAT)
                              (PIVMIN-REF14253 ':FLOAT)
                              (NSPLIT-REF14254 ':INT32) (M-REF14256 ':INT32)
                              (WL-REF14259 ':FLOAT) (WU-REF14260 ':FLOAT)
                              (INFO-REF14265 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14243 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14244 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14245 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF14246 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF14247 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF14249 :FLOAT) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14253 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14254 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14256 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF14259 :FLOAT) WL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF14260 :FLOAT) WU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14265 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF14248 GERS) (D-REF14250 D)
                                            (E-REF14251 E) (E2-REF14252 E2)
                                            (ISPLIT-REF14255 ISPLIT)
                                            (W-REF14257 W) (WERR-REF14258 WERR)
                                            (IBLOCK-REF14261 IBLOCK)
                                            (INDEXW-REF14262 INDEXW)
                                            (WORK-REF14263 WORK)
                                            (IWORK-REF14264 IWORK))
      (%%SLARRD RANGE ORDER N-REF14243 VL-REF14244 VU-REF14245 IL-REF14246
                IU-REF14247 GERS-REF14248 RELTOL-REF14249 D-REF14250 E-REF14251
                E2-REF14252 PIVMIN-REF14253 NSPLIT-REF14254 ISPLIT-REF14255
                M-REF14256 W-REF14257 WERR-REF14258 WL-REF14259 WU-REF14260
                IBLOCK-REF14261 INDEXW-REF14262 WORK-REF14263 IWORK-REF14264
                INFO-REF14265))))

(CFFI:DEFCFUN ("slarre_" %%SLARRE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (SPLTOL :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (PIVMIN :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRE
                   (RANGE N VL VU IL IU D E E2 RTOL1 RTOL2 SPLTOL NSPLIT ISPLIT
                    M W WERR WGAP IBLOCK INDEXW GERS PIVMIN WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPLTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14267 ':INT32) (VL-REF14268 ':FLOAT)
                              (VU-REF14269 ':FLOAT) (IL-REF14270 ':INT32)
                              (IU-REF14271 ':INT32) (RTOL1-REF14275 ':FLOAT)
                              (RTOL2-REF14276 ':FLOAT)
                              (SPLTOL-REF14277 ':FLOAT)
                              (NSPLIT-REF14278 ':INT32) (M-REF14280 ':INT32)
                              (PIVMIN-REF14287 ':FLOAT) (INFO-REF14290 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14267 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14268 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14269 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF14270 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF14271 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14275 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14276 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF14277 :FLOAT) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14278 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14280 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14287 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14290 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14272 D) (E-REF14273 E)
                                            (E2-REF14274 E2)
                                            (ISPLIT-REF14279 ISPLIT)
                                            (W-REF14281 W) (WERR-REF14282 WERR)
                                            (WGAP-REF14283 WGAP)
                                            (IBLOCK-REF14284 IBLOCK)
                                            (INDEXW-REF14285 INDEXW)
                                            (GERS-REF14286 GERS)
                                            (WORK-REF14288 WORK)
                                            (IWORK-REF14289 IWORK))
      (%%SLARRE RANGE N-REF14267 VL-REF14268 VU-REF14269 IL-REF14270
                IU-REF14271 D-REF14272 E-REF14273 E2-REF14274 RTOL1-REF14275
                RTOL2-REF14276 SPLTOL-REF14277 NSPLIT-REF14278 ISPLIT-REF14279
                M-REF14280 W-REF14281 WERR-REF14282 WGAP-REF14283
                IBLOCK-REF14284 INDEXW-REF14285 GERS-REF14286 PIVMIN-REF14287
                WORK-REF14288 IWORK-REF14289 INFO-REF14290))))

(CFFI:DEFCFUN ("slarrf_" %%SLARRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (CLSTRT :POINTER)
  (CLEND :POINTER)
  (W :POINTER)
  (WGAP :POINTER)
  (WERR :POINTER)
  (SPDIAM :POINTER)
  (CLGAPL :POINTER)
  (CLGAPR :POINTER)
  (PIVMIN :POINTER)
  (SIGMA :POINTER)
  (DPLUS :POINTER)
  (LPLUS :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRF
                   (N D L LD CLSTRT CLEND W WGAP WERR SPDIAM CLGAPL CLGAPR
                    PIVMIN SIGMA DPLUS LPLUS WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLSTRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLEND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CLGAPL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CLGAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DPLUS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        LPLUS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14291 ':INT32) (CLSTRT-REF14295 ':INT32)
                              (CLEND-REF14296 ':INT32)
                              (SPDIAM-REF14300 ':FLOAT)
                              (CLGAPL-REF14301 ':FLOAT)
                              (CLGAPR-REF14302 ':FLOAT)
                              (PIVMIN-REF14303 ':FLOAT)
                              (SIGMA-REF14304 ':FLOAT) (INFO-REF14308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14291 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF14295 :INT32) CLSTRT)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF14296 :INT32) CLEND)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14300 :FLOAT) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF14301 :FLOAT) CLGAPL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF14302 :FLOAT) CLGAPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14303 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14304 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14308 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14292 D) (L-REF14293 L)
                                            (LD-REF14294 LD) (W-REF14297 W)
                                            (WGAP-REF14298 WGAP)
                                            (WERR-REF14299 WERR)
                                            (DPLUS-REF14305 DPLUS)
                                            (LPLUS-REF14306 LPLUS)
                                            (WORK-REF14307 WORK))
      (%%SLARRF N-REF14291 D-REF14292 L-REF14293 LD-REF14294 CLSTRT-REF14295
                CLEND-REF14296 W-REF14297 WGAP-REF14298 WERR-REF14299
                SPDIAM-REF14300 CLGAPL-REF14301 CLGAPR-REF14302 PIVMIN-REF14303
                SIGMA-REF14304 DPLUS-REF14305 LPLUS-REF14306 WORK-REF14307
                INFO-REF14308))))

(CFFI:DEFCFUN ("slarrj_" %%SLARRJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E2 :POINTER)
  (IFIRST :POINTER)
  (ILAST :POINTER)
  (RTOL :POINTER)
  (OFFSET :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (PIVMIN :POINTER)
  (SPDIAM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRJ
                   (N D E2 IFIRST ILAST RTOL OFFSET W WERR WORK IWORK PIVMIN
                    SPDIAM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRJ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14309 ':INT32) (IFIRST-REF14312 ':INT32)
                              (ILAST-REF14313 ':INT32) (RTOL-REF14314 ':FLOAT)
                              (OFFSET-REF14315 ':INT32)
                              (PIVMIN-REF14320 ':FLOAT)
                              (SPDIAM-REF14321 ':FLOAT) (INFO-REF14322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14309 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF14312 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF14313 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF14314 :FLOAT) RTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF14315 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14320 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14321 :FLOAT) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14310 D) (E2-REF14311 E2)
                                            (W-REF14316 W) (WERR-REF14317 WERR)
                                            (WORK-REF14318 WORK)
                                            (IWORK-REF14319 IWORK))
      (%%SLARRJ N-REF14309 D-REF14310 E2-REF14311 IFIRST-REF14312
                ILAST-REF14313 RTOL-REF14314 OFFSET-REF14315 W-REF14316
                WERR-REF14317 WORK-REF14318 IWORK-REF14319 PIVMIN-REF14320
                SPDIAM-REF14321 INFO-REF14322))))

(CFFI:DEFCFUN ("slarrk_" %%SLARRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (IW :POINTER)
  (GL :POINTER)
  (GU :POINTER)
  (D :POINTER)
  (E2 :POINTER)
  (PIVMIN :POINTER)
  (RELTOL :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRK (N IW GL GU D E2 PIVMIN RELTOL W WERR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IW)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT GU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT W)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14323 ':INT32) (IW-REF14324 ':INT32)
                              (GL-REF14325 ':FLOAT) (GU-REF14326 ':FLOAT)
                              (PIVMIN-REF14329 ':FLOAT)
                              (RELTOL-REF14330 ':FLOAT) (W-REF14331 ':FLOAT)
                              (WERR-REF14332 ':FLOAT) (INFO-REF14333 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14323 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF14324 :INT32) IW)
    (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF14325 :FLOAT) GL)
    (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF14326 :FLOAT) GU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14329 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF14330 :FLOAT) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF14331 :FLOAT) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF14332 :FLOAT) WERR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14333 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14327 D) (E2-REF14328 E2))
      (%%SLARRK N-REF14323 IW-REF14324 GL-REF14325 GU-REF14326 D-REF14327
                E2-REF14328 PIVMIN-REF14329 RELTOL-REF14330 W-REF14331
                WERR-REF14332 INFO-REF14333))))

(CFFI:DEFCFUN ("slarrr_" %%SLARRR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRR (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14334 ':INT32) (INFO-REF14337 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14334 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14337 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14335 D) (E-REF14336 E))
      (%%SLARRR N-REF14334 D-REF14335 E-REF14336 INFO-REF14337))))

(CFFI:DEFCFUN ("slarrv_" %%SLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (L :POINTER)
  (PIVMIN :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (DOL :POINTER)
  (DOU :POINTER)
  (MINRGP :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLARRV
                   (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W
                    WERR WGAP IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINRGP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14338 ':INT32) (VL-REF14339 ':FLOAT)
                              (VU-REF14340 ':FLOAT) (PIVMIN-REF14343 ':FLOAT)
                              (M-REF14345 ':INT32) (DOL-REF14346 ':INT32)
                              (DOU-REF14347 ':INT32) (MINRGP-REF14348 ':FLOAT)
                              (RTOL1-REF14349 ':FLOAT) (RTOL2-REF14350 ':FLOAT)
                              (LDZ-REF14358 ':INT32) (INFO-REF14362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14339 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14340 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14343 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14345 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF14346 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF14347 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF14348 :FLOAT) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14349 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14350 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14358 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14362 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14341 D) (L-REF14342 L)
                                            (ISPLIT-REF14344 ISPLIT)
                                            (W-REF14351 W) (WERR-REF14352 WERR)
                                            (WGAP-REF14353 WGAP)
                                            (IBLOCK-REF14354 IBLOCK)
                                            (INDEXW-REF14355 INDEXW)
                                            (GERS-REF14356 GERS) (Z-REF14357 Z)
                                            (ISUPPZ-REF14359 ISUPPZ)
                                            (WORK-REF14360 WORK)
                                            (IWORK-REF14361 IWORK))
      (%%SLARRV N-REF14338 VL-REF14339 VU-REF14340 D-REF14341 L-REF14342
                PIVMIN-REF14343 ISPLIT-REF14344 M-REF14345 DOL-REF14346
                DOU-REF14347 MINRGP-REF14348 RTOL1-REF14349 RTOL2-REF14350
                W-REF14351 WERR-REF14352 WGAP-REF14353 IBLOCK-REF14354
                INDEXW-REF14355 GERS-REF14356 Z-REF14357 LDZ-REF14358
                ISUPPZ-REF14359 WORK-REF14360 IWORK-REF14361 INFO-REF14362))))

(CFFI:DEFCFUN ("slarscl2_" %%SLARSCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %SLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARSCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14363 ':INT32) (N-REF14364 ':INT32)
                              (LDX-REF14367 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14363 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14364 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14367 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14365 D) (X-REF14366 X))
      (%%SLARSCL2 M-REF14363 N-REF14364 D-REF14365 X-REF14366 LDX-REF14367))))

(CFFI:DEFCFUN ("slartg_" %%SLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %SLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTG)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14368 ':FLOAT) (G-REF14369 ':FLOAT)
                              (CS-REF14370 ':FLOAT) (SN-REF14371 ':FLOAT)
                              (R-REF14372 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14368 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14369 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14370 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14371 :FLOAT) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14372 :FLOAT) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLARTG F-REF14368 G-REF14369 CS-REF14370 SN-REF14371 R-REF14372))))

(CFFI:DEFCFUN ("slartgp_" %%SLARTGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %SLARTGP (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTGP)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14373 ':FLOAT) (G-REF14374 ':FLOAT)
                              (CS-REF14375 ':FLOAT) (SN-REF14376 ':FLOAT)
                              (R-REF14377 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14373 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14374 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14375 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14376 :FLOAT) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14377 :FLOAT) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLARTGP F-REF14373 G-REF14374 CS-REF14375 SN-REF14376 R-REF14377))))

(CFFI:DEFCFUN ("slartgs_" %%SLARTGS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (X :POINTER)
  (Y :POINTER)
  (SIGMA :POINTER)
  (CS :POINTER)
  (SN :POINTER))

(COMMON-LISP:DEFUN %SLARTGS (X Y SIGMA CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTGS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF14378 ':FLOAT) (Y-REF14379 ':FLOAT)
                              (SIGMA-REF14380 ':FLOAT) (CS-REF14381 ':FLOAT)
                              (SN-REF14382 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF14378 :FLOAT) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF14379 :FLOAT) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14380 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14381 :FLOAT) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14382 :FLOAT) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLARTGS X-REF14378 Y-REF14379 SIGMA-REF14380 CS-REF14381
                 SN-REF14382))))

(CFFI:DEFCFUN ("slartv_" %%SLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %SLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14383 ':INT32) (INCX-REF14385 ':INT32)
                              (INCY-REF14387 ':INT32) (INCC-REF14390 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14383 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14385 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF14387 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14390 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14384 X) (Y-REF14386 Y)
                                            (C-REF14388 C) (S-REF14389 S))
      (%%SLARTV N-REF14383 X-REF14384 INCX-REF14385 Y-REF14386 INCY-REF14387
                C-REF14388 S-REF14389 INCC-REF14390))))

(CFFI:DEFCFUN ("slaruv_" %%SLARUV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %SLARUV (ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARUV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14392 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14392 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF14391 ISEED)
                                            (X-REF14393 X))
      (%%SLARUV ISEED-REF14391 N-REF14392 X-REF14393))))

(CFFI:DEFCFUN ("slarz_" %%SLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14395 ':INT32) (N-REF14396 ':INT32)
                              (L-REF14397 ':INT32) (INCV-REF14399 ':INT32)
                              (TAU-REF14400 ':FLOAT) (LDC-REF14402 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14395 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14396 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14397 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14399 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14400 :FLOAT) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14402 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14398 V) (C-REF14401 C)
                                            (WORK-REF14403 WORK))
      (%%SLARZ SIDE M-REF14395 N-REF14396 L-REF14397 V-REF14398 INCV-REF14399
               TAU-REF14400 C-REF14401 LDC-REF14402 WORK-REF14403))))

(CFFI:DEFCFUN ("slarzb_" %%SLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %SLARZB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARZB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14408 ':INT32) (N-REF14409 ':INT32)
                              (K-REF14410 ':INT32) (L-REF14411 ':INT32)
                              (LDV-REF14413 ':INT32) (LDT-REF14415 ':INT32)
                              (LDC-REF14417 ':INT32) (LDWORK-REF14419 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14408 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14409 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14410 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14411 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14413 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14415 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14417 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14419 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14412 V) (T-REF14414 T)
                                            (C-REF14416 C) (WORK-REF14418 WORK))
      (%%SLARZB SIDE TRANS DIRECT STOREV M-REF14408 N-REF14409 K-REF14410
                L-REF14411 V-REF14412 LDV-REF14413 T-REF14414 LDT-REF14415
                C-REF14416 LDC-REF14417 WORK-REF14418 LDWORK-REF14419))))

(CFFI:DEFCFUN ("slarzt_" %%SLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %SLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARZT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14422 ':INT32) (K-REF14423 ':INT32)
                              (LDV-REF14425 ':INT32) (LDT-REF14428 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14422 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14423 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14425 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14428 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14424 V) (TAU-REF14426 TAU)
                                            (T-REF14427 T))
      (%%SLARZT DIRECT STOREV N-REF14422 K-REF14423 V-REF14424 LDV-REF14425
                TAU-REF14426 T-REF14427 LDT-REF14428))))

(CFFI:DEFCFUN ("slas2_" %%SLAS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (H :POINTER)
  (SSMIN :POINTER)
  (SSMAX :POINTER))

(COMMON-LISP:DEFUN %SLAS2 (F G H SSMIN SSMAX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAS2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT H)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMAX))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14429 ':FLOAT) (G-REF14430 ':FLOAT)
                              (H-REF14431 ':FLOAT) (SSMIN-REF14432 ':FLOAT)
                              (SSMAX-REF14433 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14429 :FLOAT) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14430 :FLOAT) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF14431 :FLOAT) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF14432 :FLOAT) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF14433 :FLOAT) SSMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAS2 F-REF14429 G-REF14430 H-REF14431 SSMIN-REF14432
               SSMAX-REF14433))))

(CFFI:DEFCFUN ("slascl_" %%SLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TYPE :STRING)
  (KL :POINTER)
  (KU :POINTER)
  (CFROM :POINTER)
  (CTO :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASCL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CFROM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CTO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF14435 ':INT32) (KU-REF14436 ':INT32)
                              (CFROM-REF14437 ':FLOAT) (CTO-REF14438 ':FLOAT)
                              (M-REF14439 ':INT32) (N-REF14440 ':INT32)
                              (LDA-REF14442 ':INT32) (INFO-REF14443 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF14435 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF14436 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF14437 :FLOAT) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF14438 :FLOAT) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14439 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14442 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14443 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14441 A))
      (%%SLASCL TYPE KL-REF14435 KU-REF14436 CFROM-REF14437 CTO-REF14438
                M-REF14439 N-REF14440 A-REF14441 LDA-REF14442 INFO-REF14443))))

(CFFI:DEFCFUN ("slascl2_" %%SLASCL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %SLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14444 ':INT32) (N-REF14445 ':INT32)
                              (LDX-REF14448 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14444 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14445 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14448 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14446 D) (X-REF14447 X))
      (%%SLASCL2 M-REF14444 N-REF14445 D-REF14446 X-REF14447 LDX-REF14448))))

(CFFI:DEFCFUN ("slasd0_" %%SLASD0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (SMLSIZ :POINTER)
  (IWORK :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD0 (N SQRE D E U LDU VT LDVT SMLSIZ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14449 ':INT32) (SQRE-REF14450 ':INT32)
                              (LDU-REF14454 ':INT32) (LDVT-REF14456 ':INT32)
                              (SMLSIZ-REF14457 ':INT32) (INFO-REF14460 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14449 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14450 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14454 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14456 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF14457 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14460 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14451 D) (E-REF14452 E)
                                            (U-REF14453 U) (VT-REF14455 VT)
                                            (IWORK-REF14458 IWORK)
                                            (WORK-REF14459 WORK))
      (%%SLASD0 N-REF14449 SQRE-REF14450 D-REF14451 E-REF14452 U-REF14453
                LDU-REF14454 VT-REF14455 LDVT-REF14456 SMLSIZ-REF14457
                IWORK-REF14458 WORK-REF14459 INFO-REF14460))))

(CFFI:DEFCFUN ("slasd1_" %%SLASD1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (IDXQ :POINTER)
  (IWORK :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD1
                   (NL NR SQRE D ALPHA BETA U LDU VT LDVT IDXQ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14461 ':INT32) (NR-REF14462 ':INT32)
                              (SQRE-REF14463 ':INT32) (ALPHA-REF14465 ':FLOAT)
                              (BETA-REF14466 ':FLOAT) (LDU-REF14468 ':INT32)
                              (LDVT-REF14470 ':INT32) (INFO-REF14474 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14461 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14462 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14463 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14465 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14466 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14468 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14470 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14474 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14464 D) (U-REF14467 U)
                                            (VT-REF14469 VT)
                                            (IDXQ-REF14471 IDXQ)
                                            (IWORK-REF14472 IWORK)
                                            (WORK-REF14473 WORK))
      (%%SLASD1 NL-REF14461 NR-REF14462 SQRE-REF14463 D-REF14464 ALPHA-REF14465
                BETA-REF14466 U-REF14467 LDU-REF14468 VT-REF14469 LDVT-REF14470
                IDXQ-REF14471 IWORK-REF14472 WORK-REF14473 INFO-REF14474))))

(CFFI:DEFCFUN ("slasd2_" %%SLASD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (DSIGMA :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (VT2 :POINTER)
  (LDVT2 :POINTER)
  (IDXP :POINTER)
  (IDX :POINTER)
  (IDXC :POINTER)
  (IDXQ :POINTER)
  (COLTYP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD2
                   (NL NR SQRE K D Z ALPHA BETA U LDU VT LDVT DSIGMA U2 LDU2
                    VT2 LDVT2 IDXP IDX IDXC IDXQ COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        COLTYP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14475 ':INT32) (NR-REF14476 ':INT32)
                              (SQRE-REF14477 ':INT32) (K-REF14478 ':INT32)
                              (ALPHA-REF14481 ':FLOAT) (BETA-REF14482 ':FLOAT)
                              (LDU-REF14484 ':INT32) (LDVT-REF14486 ':INT32)
                              (LDU2-REF14489 ':INT32) (LDVT2-REF14491 ':INT32)
                              (INFO-REF14497 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14475 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14476 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14477 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14478 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14481 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14482 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14484 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14486 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14489 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF14491 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14497 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14479 D) (Z-REF14480 Z)
                                            (U-REF14483 U) (VT-REF14485 VT)
                                            (DSIGMA-REF14487 DSIGMA)
                                            (U2-REF14488 U2) (VT2-REF14490 VT2)
                                            (IDXP-REF14492 IDXP)
                                            (IDX-REF14493 IDX)
                                            (IDXC-REF14494 IDXC)
                                            (IDXQ-REF14495 IDXQ)
                                            (COLTYP-REF14496 COLTYP))
      (%%SLASD2 NL-REF14475 NR-REF14476 SQRE-REF14477 K-REF14478 D-REF14479
                Z-REF14480 ALPHA-REF14481 BETA-REF14482 U-REF14483 LDU-REF14484
                VT-REF14485 LDVT-REF14486 DSIGMA-REF14487 U2-REF14488
                LDU2-REF14489 VT2-REF14490 LDVT2-REF14491 IDXP-REF14492
                IDX-REF14493 IDXC-REF14494 IDXQ-REF14495 COLTYP-REF14496
                INFO-REF14497))))

(CFFI:DEFCFUN ("slasd3_" %%SLASD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (DSIGMA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (VT2 :POINTER)
  (LDVT2 :POINTER)
  (IDXC :POINTER)
  (CTOT :POINTER)
  (Z :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD3
                   (NL NR SQRE K D Q LDQ DSIGMA U LDU U2 LDU2 VT LDVT VT2 LDVT2
                    IDXC CTOT Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        CTOT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14498 ':INT32) (NR-REF14499 ':INT32)
                              (SQRE-REF14500 ':INT32) (K-REF14501 ':INT32)
                              (LDQ-REF14504 ':INT32) (LDU-REF14507 ':INT32)
                              (LDU2-REF14509 ':INT32) (LDVT-REF14511 ':INT32)
                              (LDVT2-REF14513 ':INT32) (INFO-REF14517 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14498 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14499 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14500 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14501 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14504 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14507 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14509 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14511 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF14513 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14517 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14502 D) (Q-REF14503 Q)
                                            (DSIGMA-REF14505 DSIGMA)
                                            (U-REF14506 U) (U2-REF14508 U2)
                                            (VT-REF14510 VT) (VT2-REF14512 VT2)
                                            (IDXC-REF14514 IDXC)
                                            (CTOT-REF14515 CTOT) (Z-REF14516 Z))
      (%%SLASD3 NL-REF14498 NR-REF14499 SQRE-REF14500 K-REF14501 D-REF14502
                Q-REF14503 LDQ-REF14504 DSIGMA-REF14505 U-REF14506 LDU-REF14507
                U2-REF14508 LDU2-REF14509 VT-REF14510 LDVT-REF14511
                VT2-REF14512 LDVT2-REF14513 IDXC-REF14514 CTOT-REF14515
                Z-REF14516 INFO-REF14517))))

(CFFI:DEFCFUN ("slasd4_" %%SLASD4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (SIGMA :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD4 (N I D Z DELTA RHO SIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14518 ':INT32) (I-REF14519 ':INT32)
                              (RHO-REF14523 ':FLOAT) (SIGMA-REF14524 ':FLOAT)
                              (INFO-REF14526 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14518 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF14519 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF14523 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14524 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14526 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14520 D) (Z-REF14521 Z)
                                            (DELTA-REF14522 DELTA)
                                            (WORK-REF14525 WORK))
      (%%SLASD4 N-REF14518 I-REF14519 D-REF14520 Z-REF14521 DELTA-REF14522
                RHO-REF14523 SIGMA-REF14524 WORK-REF14525 INFO-REF14526))))

(CFFI:DEFCFUN ("slasd5_" %%SLASD5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DSIGMA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %SLASD5 (I D Z DELTA RHO DSIGMA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF14527 ':INT32) (RHO-REF14531 ':FLOAT)
                              (DSIGMA-REF14532 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF14527 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF14531 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF14532 :FLOAT) DSIGMA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14528 D) (Z-REF14529 Z)
                                            (DELTA-REF14530 DELTA)
                                            (WORK-REF14533 WORK))
      (%%SLASD5 I-REF14527 D-REF14528 Z-REF14529 DELTA-REF14530 RHO-REF14531
                DSIGMA-REF14532 WORK-REF14533))))

(CFFI:DEFCFUN ("slasd6_" %%SLASD6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (VF :POINTER)
  (VL :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (IDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD6
                   (ICOMPQ NL NR SQRE D VF VL ALPHA BETA IDXQ PERM GIVPTR
                    GIVCOL LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14534 ':INT32) (NL-REF14535 ':INT32)
                              (NR-REF14536 ':INT32) (SQRE-REF14537 ':INT32)
                              (ALPHA-REF14541 ':FLOAT) (BETA-REF14542 ':FLOAT)
                              (GIVPTR-REF14545 ':INT32)
                              (LDGCOL-REF14547 ':INT32)
                              (LDGNUM-REF14549 ':INT32) (K-REF14554 ':INT32)
                              (C-REF14555 ':FLOAT) (S-REF14556 ':FLOAT)
                              (INFO-REF14559 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14534 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14535 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14536 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14537 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14541 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14542 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF14545 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14547 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF14549 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14554 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14555 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF14556 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14559 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14538 D) (VF-REF14539 VF)
                                            (VL-REF14540 VL)
                                            (IDXQ-REF14543 IDXQ)
                                            (PERM-REF14544 PERM)
                                            (GIVCOL-REF14546 GIVCOL)
                                            (GIVNUM-REF14548 GIVNUM)
                                            (POLES-REF14550 POLES)
                                            (DIFL-REF14551 DIFL)
                                            (DIFR-REF14552 DIFR) (Z-REF14553 Z)
                                            (WORK-REF14557 WORK)
                                            (IWORK-REF14558 IWORK))
      (%%SLASD6 ICOMPQ-REF14534 NL-REF14535 NR-REF14536 SQRE-REF14537
                D-REF14538 VF-REF14539 VL-REF14540 ALPHA-REF14541 BETA-REF14542
                IDXQ-REF14543 PERM-REF14544 GIVPTR-REF14545 GIVCOL-REF14546
                LDGCOL-REF14547 GIVNUM-REF14548 LDGNUM-REF14549 POLES-REF14550
                DIFL-REF14551 DIFR-REF14552 Z-REF14553 K-REF14554 C-REF14555
                S-REF14556 WORK-REF14557 IWORK-REF14558 INFO-REF14559))))

(CFFI:DEFCFUN ("slasd7_" %%SLASD7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (ZW :POINTER)
  (VF :POINTER)
  (VFW :POINTER)
  (VL :POINTER)
  (VLW :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (DSIGMA :POINTER)
  (IDX :POINTER)
  (IDXP :POINTER)
  (IDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD7
                   (ICOMPQ NL NR SQRE K D Z ZW VF VFW VL VLW ALPHA BETA DSIGMA
                    IDX IDXP IDXQ PERM GIVPTR GIVCOL LDGCOL GIVNUM LDGNUM C S
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ZW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VFW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        VLW)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14560 ':INT32) (NL-REF14561 ':INT32)
                              (NR-REF14562 ':INT32) (SQRE-REF14563 ':INT32)
                              (K-REF14564 ':INT32) (ALPHA-REF14572 ':FLOAT)
                              (BETA-REF14573 ':FLOAT) (GIVPTR-REF14579 ':INT32)
                              (LDGCOL-REF14581 ':INT32)
                              (LDGNUM-REF14583 ':INT32) (C-REF14584 ':FLOAT)
                              (S-REF14585 ':FLOAT) (INFO-REF14586 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14560 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14561 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14562 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14563 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14564 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14572 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14573 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF14579 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14581 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF14583 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14584 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF14585 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14586 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14565 D) (Z-REF14566 Z)
                                            (ZW-REF14567 ZW) (VF-REF14568 VF)
                                            (VFW-REF14569 VFW) (VL-REF14570 VL)
                                            (VLW-REF14571 VLW)
                                            (DSIGMA-REF14574 DSIGMA)
                                            (IDX-REF14575 IDX)
                                            (IDXP-REF14576 IDXP)
                                            (IDXQ-REF14577 IDXQ)
                                            (PERM-REF14578 PERM)
                                            (GIVCOL-REF14580 GIVCOL)
                                            (GIVNUM-REF14582 GIVNUM))
      (%%SLASD7 ICOMPQ-REF14560 NL-REF14561 NR-REF14562 SQRE-REF14563
                K-REF14564 D-REF14565 Z-REF14566 ZW-REF14567 VF-REF14568
                VFW-REF14569 VL-REF14570 VLW-REF14571 ALPHA-REF14572
                BETA-REF14573 DSIGMA-REF14574 IDX-REF14575 IDXP-REF14576
                IDXQ-REF14577 PERM-REF14578 GIVPTR-REF14579 GIVCOL-REF14580
                LDGCOL-REF14581 GIVNUM-REF14582 LDGNUM-REF14583 C-REF14584
                S-REF14585 INFO-REF14586))))

(CFFI:DEFCFUN ("slasd8_" %%SLASD8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (VF :POINTER)
  (VL :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (LDDIFR :POINTER)
  (DSIGMA :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %SLASD8
                   (ICOMPQ K D Z VF VL DIFL DIFR LDDIFR DSIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDDIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14587 ':INT32) (K-REF14588 ':INT32)
                              (LDDIFR-REF14595 ':INT32) (INFO-REF14598 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14587 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14588 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF14595 :INT32) LDDIFR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14598 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14589 D) (Z-REF14590 Z)
                                            (VF-REF14591 VF) (VL-REF14592 VL)
                                            (DIFL-REF14593 DIFL)
                                            (DIFR-REF14594 DIFR)
                                            (DSIGMA-REF14596 DSIGMA)
                                            (WORK-REF14597 WORK))
      (%%SLASD8 ICOMPQ-REF14587 K-REF14588 D-REF14589 Z-REF14590 VF-REF14591
                VL-REF14592 DIFL-REF14593 DIFR-REF14594 LDDIFR-REF14595
                DSIGMA-REF14596 WORK-REF14597 INFO-REF14598))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%ILASLR %ILASLR %%ILATRANS %ILATRANS %%ILAUPLO
  %ILAUPLO %%ILAZLC %ILAZLC %%ILAZLR %ILAZLR %%IPARMQ %IPARMQ %%IZMAX1 %IZMAX1
  %%LSAMEN %LSAMEN %%SBBCSD %SBBCSD %%SBDSDC %SBDSDC %%SBDSQR %SBDSQR %%SBDSVDX
  %SBDSVDX %%SCOMBSSQ %SCOMBSSQ %%SCSUM1 %SCSUM1 %%SDISNA %SDISNA %%SGBBRD
  %SGBBRD %%SGBCON %SGBCON %%SGBEQU %SGBEQU %%SGBEQUB %SGBEQUB %%SGBRFS %SGBRFS
  %%SGBRFSX %SGBRFSX %%SGBSV %SGBSV %%SGBSVX %SGBSVX %%SGBSVXX %SGBSVXX
  %%SGBTF2 %SGBTF2 %%SGBTRF %SGBTRF %%SGBTRS %SGBTRS %%SGEBAK %SGEBAK %%SGEBAL
  %SGEBAL %%SGEBD2 %SGEBD2 %%SGEBRD %SGEBRD %%SGECON %SGECON %%SGEEQU %SGEEQU
  %%SGEEQUB %SGEEQUB %%SGEES %SGEES %%SGEESX %SGEESX %%SGEEV %SGEEV %%SGEEVX
  %SGEEVX %%SGEHD2 %SGEHD2 %%SGEHRD %SGEHRD %%SGEJSV %SGEJSV %%SGELQ %SGELQ
  %%SGELQ2 %SGELQ2 %%SGELQF %SGELQF %%SGELQT %SGELQT %%SGELQT3 %SGELQT3 %%SGELS
  %SGELS %%SGELSD %SGELSD %%SGELSS %SGELSS %%SGELSY %SGELSY %%SGEMLQ %SGEMLQ
  %%SGEMLQT %SGEMLQT %%SGEMQR %SGEMQR %%SGEMQRT %SGEMQRT %%SGEQL2 %SGEQL2
  %%SGEQLF %SGEQLF %%SGEQP3 %SGEQP3 %%SGEQR %SGEQR %%SGEQR2 %SGEQR2 %%SGEQR2P
  %SGEQR2P %%SGEQRF %SGEQRF %%SGEQRFP %SGEQRFP %%SGEQRT %SGEQRT %%SGEQRT2
  %SGEQRT2 %%SGEQRT3 %SGEQRT3 %%SGERFS %SGERFS %%SGERFSX %SGERFSX %%SGERQ2
  %SGERQ2 %%SGERQF %SGERQF %%SGESC2 %SGESC2 %%SGESDD %SGESDD %%SGESV %SGESV
  %%SGESVD %SGESVD %%SGESVDQ %SGESVDQ %%SGESVDX %SGESVDX %%SGESVJ %SGESVJ
  %%SGESVX %SGESVX %%SGESVXX %SGESVXX %%SGETC2 %SGETC2 %%SGETF2 %SGETF2
  %%SGETRF %SGETRF %%SGETRF2 %SGETRF2 %%SGETRI %SGETRI %%SGETRS %SGETRS
  %%SGETSLS %SGETSLS %%SGGBAK %SGGBAK %%SGGBAL %SGGBAL %%SGGES %SGGES %%SGGES3
  %SGGES3 %%SGGESX %SGGESX %%SGGEV %SGGEV %%SGGEV3 %SGGEV3 %%SGGEVX %SGGEVX
  %%SGGGLM %SGGGLM %%SGGHD3 %SGGHD3 %%SGGHRD %SGGHRD %%SGGLSE %SGGLSE %%SGGQRF
  %SGGQRF %%SGGRQF %SGGRQF %%SGGSVD3 %SGGSVD3 %%SGGSVP3 %SGGSVP3 %%SGSVJ0
  %SGSVJ0 %%SGSVJ1 %SGSVJ1 %%SGTCON %SGTCON %%SGTRFS %SGTRFS %%SGTSV %SGTSV
  %%SGTSVX %SGTSVX %%SGTTRF %SGTTRF %%SGTTRS %SGTTRS %%SGTTS2 %SGTTS2 %%SHGEQZ
  %SHGEQZ %%SHSEIN %SHSEIN %%SHSEQR %SHSEQR %%SISNAN %SISNAN %%SLA_GBAMV
  %SLA_GBAMV %%SLA_GBRCOND %SLA_GBRCOND %%SLA_GBRFSX_EXTENDED
  %SLA_GBRFSX_EXTENDED %%SLA_GBRPVGRW %SLA_GBRPVGRW %%SLA_GEAMV %SLA_GEAMV
  %%SLA_GERCOND %SLA_GERCOND %%SLA_GERFSX_EXTENDED %SLA_GERFSX_EXTENDED
  %%SLA_GERPVGRW %SLA_GERPVGRW %%SLA_LIN_BERR %SLA_LIN_BERR %%SLA_PORCOND
  %SLA_PORCOND %%SLA_PORFSX_EXTENDED %SLA_PORFSX_EXTENDED %%SLA_PORPVGRW
  %SLA_PORPVGRW %%SLA_SYAMV %SLA_SYAMV %%SLA_SYRCOND %SLA_SYRCOND
  %%SLA_SYRFSX_EXTENDED %SLA_SYRFSX_EXTENDED %%SLA_SYRPVGRW %SLA_SYRPVGRW
  %%SLA_WWADDW %SLA_WWADDW %%SLABAD %SLABAD %%SLABRD %SLABRD %%SLACN2 %SLACN2
  %%SLACON %SLACON %%SLACPY %SLACPY %%SLADIV %SLADIV %%SLAE2 %SLAE2 %%SLAEBZ
  %SLAEBZ %%SLAED0 %SLAED0 %%SLAED1 %SLAED1 %%SLAED2 %SLAED2 %%SLAED3 %SLAED3
  %%SLAED4 %SLAED4 %%SLAED5 %SLAED5 %%SLAED6 %SLAED6 %%SLAED7 %SLAED7 %%SLAED8
  %SLAED8 %%SLAED9 %SLAED9 %%SLAEDA %SLAEDA %%SLAEIN %SLAEIN %%SLAEV2 %SLAEV2
  %%SLAEXC %SLAEXC %%SLAG2 %SLAG2 %%SLAG2D %SLAG2D %%SLAGS2 %SLAGS2 %%SLAGTF
  %SLAGTF %%SLAGTM %SLAGTM %%SLAGTS %SLAGTS %%SLAGV2 %SLAGV2 %%SLAHQR %SLAHQR
  %%SLAHR2 %SLAHR2 %%SLAIC1 %SLAIC1 %%SLAISNAN %SLAISNAN %%SLALN2 %SLALN2
  %%SLALS0 %SLALS0 %%SLALSA %SLALSA %%SLALSD %SLALSD %%SLAMRG %SLAMRG
  %%SLAMSWLQ %SLAMSWLQ %%SLAMTSQR %SLAMTSQR %%SLANEG %SLANEG %%SLANGB %SLANGB
  %%SLANGE %SLANGE %%SLANGT %SLANGT %%SLANHS %SLANHS %%SLANSB %SLANSB %%SLANSF
  %SLANSF %%SLANSP %SLANSP %%SLANST %SLANST %%SLANSY %SLANSY %%SLANTB %SLANTB
  %%SLANTP %SLANTP %%SLANTR %SLANTR %%SLANV2 %SLANV2 %%SLAPLL %SLAPLL %%SLAPMR
  %SLAPMR %%SLAPMT %SLAPMT %%SLAPY2 %SLAPY2 %%SLAPY3 %SLAPY3 %%SLAQGB %SLAQGB
  %%SLAQGE %SLAQGE %%SLAQP2 %SLAQP2 %%SLAQPS %SLAQPS %%SLAQR0 %SLAQR0 %%SLAQR1
  %SLAQR1 %%SLAQR2 %SLAQR2 %%SLAQR3 %SLAQR3 %%SLAQR4 %SLAQR4 %%SLAQR5 %SLAQR5
  %%SLAQSB %SLAQSB %%SLAQSP %SLAQSP %%SLAQSY %SLAQSY %%SLAQTR %SLAQTR %%SLAR1V
  %SLAR1V %%SLAR2V %SLAR2V %%SLARF %SLARF %%SLARFB %SLARFB %%SLARFG %SLARFG
  %%SLARFGP %SLARFGP %%SLARFT %SLARFT %%SLARFX %SLARFX %%SLARFY %SLARFY
  %%SLARGV %SLARGV %%SLARNV %SLARNV %%SLARRA %SLARRA %%SLARRB %SLARRB %%SLARRC
  %SLARRC %%SLARRD %SLARRD %%SLARRE %SLARRE %%SLARRF %SLARRF %%SLARRJ %SLARRJ
  %%SLARRK %SLARRK %%SLARRR %SLARRR %%SLARRV %SLARRV %%SLARSCL2 %SLARSCL2
  %%SLARTG %SLARTG %%SLARTGP %SLARTGP %%SLARTGS %SLARTGS %%SLARTV %SLARTV
  %%SLARUV %SLARUV %%SLARZ %SLARZ %%SLARZB %SLARZB %%SLARZT %SLARZT %%SLAS2
  %SLAS2 %%SLASCL %SLASCL %%SLASCL2 %SLASCL2 %%SLASD0 %SLASD0 %%SLASD1 %SLASD1
  %%SLASD2 %SLASD2 %%SLASD3 %SLASD3 %%SLASD4 %SLASD4 %%SLASD5 %SLASD5 %%SLASD6
  %SLASD6 %%SLASD7 %SLASD7 %%SLASD8 %SLASD8))

(COMMON-LISP:SETF (COMMON-LISP:GETF
                   (COMMON-LISP:SYMBOL-PLIST
                    'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
                   ':MAGICL)
                    '(("ILASLR" "ilaslr_" %%ILASLR %ILASLR)
                      ("ILATRANS" "ilatrans_" %%ILATRANS %ILATRANS)
                      ("ILAUPLO" "ilauplo_" %%ILAUPLO %ILAUPLO)
                      ("ILAZLC" "ilazlc_" %%ILAZLC %ILAZLC)
                      ("ILAZLR" "ilazlr_" %%ILAZLR %ILAZLR)
                      ("IPARMQ" "iparmq_" %%IPARMQ %IPARMQ)
                      ("IZMAX1" "izmax1_" %%IZMAX1 %IZMAX1)
                      ("LSAMEN" "lsamen_" %%LSAMEN %LSAMEN)
                      ("SBBCSD" "sbbcsd_" %%SBBCSD %SBBCSD)
                      ("SBDSDC" "sbdsdc_" %%SBDSDC %SBDSDC)
                      ("SBDSQR" "sbdsqr_" %%SBDSQR %SBDSQR)
                      ("SBDSVDX" "sbdsvdx_" %%SBDSVDX %SBDSVDX)
                      ("SCOMBSSQ" "scombssq_" %%SCOMBSSQ %SCOMBSSQ)
                      ("SCSUM1" "scsum1_" %%SCSUM1 %SCSUM1)
                      ("SDISNA" "sdisna_" %%SDISNA %SDISNA)
                      ("SGBBRD" "sgbbrd_" %%SGBBRD %SGBBRD)
                      ("SGBCON" "sgbcon_" %%SGBCON %SGBCON)
                      ("SGBEQU" "sgbequ_" %%SGBEQU %SGBEQU)
                      ("SGBEQUB" "sgbequb_" %%SGBEQUB %SGBEQUB)
                      ("SGBRFS" "sgbrfs_" %%SGBRFS %SGBRFS)
                      ("SGBRFSX" "sgbrfsx_" %%SGBRFSX %SGBRFSX)
                      ("SGBSV" "sgbsv_" %%SGBSV %SGBSV)
                      ("SGBSVX" "sgbsvx_" %%SGBSVX %SGBSVX)
                      ("SGBSVXX" "sgbsvxx_" %%SGBSVXX %SGBSVXX)
                      ("SGBTF2" "sgbtf2_" %%SGBTF2 %SGBTF2)
                      ("SGBTRF" "sgbtrf_" %%SGBTRF %SGBTRF)
                      ("SGBTRS" "sgbtrs_" %%SGBTRS %SGBTRS)
                      ("SGEBAK" "sgebak_" %%SGEBAK %SGEBAK)
                      ("SGEBAL" "sgebal_" %%SGEBAL %SGEBAL)
                      ("SGEBD2" "sgebd2_" %%SGEBD2 %SGEBD2)
                      ("SGEBRD" "sgebrd_" %%SGEBRD %SGEBRD)
                      ("SGECON" "sgecon_" %%SGECON %SGECON)
                      ("SGEEQU" "sgeequ_" %%SGEEQU %SGEEQU)
                      ("SGEEQUB" "sgeequb_" %%SGEEQUB %SGEEQUB)
                      ("SGEES" "sgees_" %%SGEES %SGEES)
                      ("SGEESX" "sgeesx_" %%SGEESX %SGEESX)
                      ("SGEEV" "sgeev_" %%SGEEV %SGEEV)
                      ("SGEEVX" "sgeevx_" %%SGEEVX %SGEEVX)
                      ("SGEHD2" "sgehd2_" %%SGEHD2 %SGEHD2)
                      ("SGEHRD" "sgehrd_" %%SGEHRD %SGEHRD)
                      ("SGEJSV" "sgejsv_" %%SGEJSV %SGEJSV)
                      ("SGELQ" "sgelq_" %%SGELQ %SGELQ)
                      ("SGELQ2" "sgelq2_" %%SGELQ2 %SGELQ2)
                      ("SGELQF" "sgelqf_" %%SGELQF %SGELQF)
                      ("SGELQT" "sgelqt_" %%SGELQT %SGELQT)
                      ("SGELQT3" "sgelqt3_" %%SGELQT3 %SGELQT3)
                      ("SGELS" "sgels_" %%SGELS %SGELS)
                      ("SGELSD" "sgelsd_" %%SGELSD %SGELSD)
                      ("SGELSS" "sgelss_" %%SGELSS %SGELSS)
                      ("SGELSY" "sgelsy_" %%SGELSY %SGELSY)
                      ("SGEMLQ" "sgemlq_" %%SGEMLQ %SGEMLQ)
                      ("SGEMLQT" "sgemlqt_" %%SGEMLQT %SGEMLQT)
                      ("SGEMQR" "sgemqr_" %%SGEMQR %SGEMQR)
                      ("SGEMQRT" "sgemqrt_" %%SGEMQRT %SGEMQRT)
                      ("SGEQL2" "sgeql2_" %%SGEQL2 %SGEQL2)
                      ("SGEQLF" "sgeqlf_" %%SGEQLF %SGEQLF)
                      ("SGEQP3" "sgeqp3_" %%SGEQP3 %SGEQP3)
                      ("SGEQR" "sgeqr_" %%SGEQR %SGEQR)
                      ("SGEQR2" "sgeqr2_" %%SGEQR2 %SGEQR2)
                      ("SGEQR2P" "sgeqr2p_" %%SGEQR2P %SGEQR2P)
                      ("SGEQRF" "sgeqrf_" %%SGEQRF %SGEQRF)
                      ("SGEQRFP" "sgeqrfp_" %%SGEQRFP %SGEQRFP)
                      ("SGEQRT" "sgeqrt_" %%SGEQRT %SGEQRT)
                      ("SGEQRT2" "sgeqrt2_" %%SGEQRT2 %SGEQRT2)
                      ("SGEQRT3" "sgeqrt3_" %%SGEQRT3 %SGEQRT3)
                      ("SGERFS" "sgerfs_" %%SGERFS %SGERFS)
                      ("SGERFSX" "sgerfsx_" %%SGERFSX %SGERFSX)
                      ("SGERQ2" "sgerq2_" %%SGERQ2 %SGERQ2)
                      ("SGERQF" "sgerqf_" %%SGERQF %SGERQF)
                      ("SGESC2" "sgesc2_" %%SGESC2 %SGESC2)
                      ("SGESDD" "sgesdd_" %%SGESDD %SGESDD)
                      ("SGESV" "sgesv_" %%SGESV %SGESV)
                      ("SGESVD" "sgesvd_" %%SGESVD %SGESVD)
                      ("SGESVDQ" "sgesvdq_" %%SGESVDQ %SGESVDQ)
                      ("SGESVDX" "sgesvdx_" %%SGESVDX %SGESVDX)
                      ("SGESVJ" "sgesvj_" %%SGESVJ %SGESVJ)
                      ("SGESVX" "sgesvx_" %%SGESVX %SGESVX)
                      ("SGESVXX" "sgesvxx_" %%SGESVXX %SGESVXX)
                      ("SGETC2" "sgetc2_" %%SGETC2 %SGETC2)
                      ("SGETF2" "sgetf2_" %%SGETF2 %SGETF2)
                      ("SGETRF" "sgetrf_" %%SGETRF %SGETRF)
                      ("SGETRF2" "sgetrf2_" %%SGETRF2 %SGETRF2)
                      ("SGETRI" "sgetri_" %%SGETRI %SGETRI)
                      ("SGETRS" "sgetrs_" %%SGETRS %SGETRS)
                      ("SGETSLS" "sgetsls_" %%SGETSLS %SGETSLS)
                      ("SGGBAK" "sggbak_" %%SGGBAK %SGGBAK)
                      ("SGGBAL" "sggbal_" %%SGGBAL %SGGBAL)
                      ("SGGES" "sgges_" %%SGGES %SGGES)
                      ("SGGES3" "sgges3_" %%SGGES3 %SGGES3)
                      ("SGGESX" "sggesx_" %%SGGESX %SGGESX)
                      ("SGGEV" "sggev_" %%SGGEV %SGGEV)
                      ("SGGEV3" "sggev3_" %%SGGEV3 %SGGEV3)
                      ("SGGEVX" "sggevx_" %%SGGEVX %SGGEVX)
                      ("SGGGLM" "sggglm_" %%SGGGLM %SGGGLM)
                      ("SGGHD3" "sgghd3_" %%SGGHD3 %SGGHD3)
                      ("SGGHRD" "sgghrd_" %%SGGHRD %SGGHRD)
                      ("SGGLSE" "sgglse_" %%SGGLSE %SGGLSE)
                      ("SGGQRF" "sggqrf_" %%SGGQRF %SGGQRF)
                      ("SGGRQF" "sggrqf_" %%SGGRQF %SGGRQF)
                      ("SGGSVD3" "sggsvd3_" %%SGGSVD3 %SGGSVD3)
                      ("SGGSVP3" "sggsvp3_" %%SGGSVP3 %SGGSVP3)
                      ("SGSVJ0" "sgsvj0_" %%SGSVJ0 %SGSVJ0)
                      ("SGSVJ1" "sgsvj1_" %%SGSVJ1 %SGSVJ1)
                      ("SGTCON" "sgtcon_" %%SGTCON %SGTCON)
                      ("SGTRFS" "sgtrfs_" %%SGTRFS %SGTRFS)
                      ("SGTSV" "sgtsv_" %%SGTSV %SGTSV)
                      ("SGTSVX" "sgtsvx_" %%SGTSVX %SGTSVX)
                      ("SGTTRF" "sgttrf_" %%SGTTRF %SGTTRF)
                      ("SGTTRS" "sgttrs_" %%SGTTRS %SGTTRS)
                      ("SGTTS2" "sgtts2_" %%SGTTS2 %SGTTS2)
                      ("SHGEQZ" "shgeqz_" %%SHGEQZ %SHGEQZ)
                      ("SHSEIN" "shsein_" %%SHSEIN %SHSEIN)
                      ("SHSEQR" "shseqr_" %%SHSEQR %SHSEQR)
                      ("SISNAN" "sisnan_" %%SISNAN %SISNAN)
                      ("SLA_GBAMV" "sla_gbamv_" %%SLA_GBAMV %SLA_GBAMV)
                      ("SLA_GBRCOND" "sla_gbrcond_" %%SLA_GBRCOND %SLA_GBRCOND)
                      ("SLA_GBRFSX_EXTENDED" "sla_gbrfsx_extended_"
                       %%SLA_GBRFSX_EXTENDED %SLA_GBRFSX_EXTENDED)
                      ("SLA_GBRPVGRW" "sla_gbrpvgrw_" %%SLA_GBRPVGRW
                       %SLA_GBRPVGRW)
                      ("SLA_GEAMV" "sla_geamv_" %%SLA_GEAMV %SLA_GEAMV)
                      ("SLA_GERCOND" "sla_gercond_" %%SLA_GERCOND %SLA_GERCOND)
                      ("SLA_GERFSX_EXTENDED" "sla_gerfsx_extended_"
                       %%SLA_GERFSX_EXTENDED %SLA_GERFSX_EXTENDED)
                      ("SLA_GERPVGRW" "sla_gerpvgrw_" %%SLA_GERPVGRW
                       %SLA_GERPVGRW)
                      ("SLA_LIN_BERR" "sla_lin_berr_" %%SLA_LIN_BERR
                       %SLA_LIN_BERR)
                      ("SLA_PORCOND" "sla_porcond_" %%SLA_PORCOND %SLA_PORCOND)
                      ("SLA_PORFSX_EXTENDED" "sla_porfsx_extended_"
                       %%SLA_PORFSX_EXTENDED %SLA_PORFSX_EXTENDED)
                      ("SLA_PORPVGRW" "sla_porpvgrw_" %%SLA_PORPVGRW
                       %SLA_PORPVGRW)
                      ("SLA_SYAMV" "sla_syamv_" %%SLA_SYAMV %SLA_SYAMV)
                      ("SLA_SYRCOND" "sla_syrcond_" %%SLA_SYRCOND %SLA_SYRCOND)
                      ("SLA_SYRFSX_EXTENDED" "sla_syrfsx_extended_"
                       %%SLA_SYRFSX_EXTENDED %SLA_SYRFSX_EXTENDED)
                      ("SLA_SYRPVGRW" "sla_syrpvgrw_" %%SLA_SYRPVGRW
                       %SLA_SYRPVGRW)
                      ("SLA_WWADDW" "sla_wwaddw_" %%SLA_WWADDW %SLA_WWADDW)
                      ("SLABAD" "slabad_" %%SLABAD %SLABAD)
                      ("SLABRD" "slabrd_" %%SLABRD %SLABRD)
                      ("SLACN2" "slacn2_" %%SLACN2 %SLACN2)
                      ("SLACON" "slacon_" %%SLACON %SLACON)
                      ("SLACPY" "slacpy_" %%SLACPY %SLACPY)
                      ("SLADIV" "sladiv_" %%SLADIV %SLADIV)
                      ("SLAE2" "slae2_" %%SLAE2 %SLAE2)
                      ("SLAEBZ" "slaebz_" %%SLAEBZ %SLAEBZ)
                      ("SLAED0" "slaed0_" %%SLAED0 %SLAED0)
                      ("SLAED1" "slaed1_" %%SLAED1 %SLAED1)
                      ("SLAED2" "slaed2_" %%SLAED2 %SLAED2)
                      ("SLAED3" "slaed3_" %%SLAED3 %SLAED3)
                      ("SLAED4" "slaed4_" %%SLAED4 %SLAED4)
                      ("SLAED5" "slaed5_" %%SLAED5 %SLAED5)
                      ("SLAED6" "slaed6_" %%SLAED6 %SLAED6)
                      ("SLAED7" "slaed7_" %%SLAED7 %SLAED7)
                      ("SLAED8" "slaed8_" %%SLAED8 %SLAED8)
                      ("SLAED9" "slaed9_" %%SLAED9 %SLAED9)
                      ("SLAEDA" "slaeda_" %%SLAEDA %SLAEDA)
                      ("SLAEIN" "slaein_" %%SLAEIN %SLAEIN)
                      ("SLAEV2" "slaev2_" %%SLAEV2 %SLAEV2)
                      ("SLAEXC" "slaexc_" %%SLAEXC %SLAEXC)
                      ("SLAG2" "slag2_" %%SLAG2 %SLAG2)
                      ("SLAG2D" "slag2d_" %%SLAG2D %SLAG2D)
                      ("SLAGS2" "slags2_" %%SLAGS2 %SLAGS2)
                      ("SLAGTF" "slagtf_" %%SLAGTF %SLAGTF)
                      ("SLAGTM" "slagtm_" %%SLAGTM %SLAGTM)
                      ("SLAGTS" "slagts_" %%SLAGTS %SLAGTS)
                      ("SLAGV2" "slagv2_" %%SLAGV2 %SLAGV2)
                      ("SLAHQR" "slahqr_" %%SLAHQR %SLAHQR)
                      ("SLAHR2" "slahr2_" %%SLAHR2 %SLAHR2)
                      ("SLAIC1" "slaic1_" %%SLAIC1 %SLAIC1)
                      ("SLAISNAN" "slaisnan_" %%SLAISNAN %SLAISNAN)
                      ("SLALN2" "slaln2_" %%SLALN2 %SLALN2)
                      ("SLALS0" "slals0_" %%SLALS0 %SLALS0)
                      ("SLALSA" "slalsa_" %%SLALSA %SLALSA)
                      ("SLALSD" "slalsd_" %%SLALSD %SLALSD)
                      ("SLAMRG" "slamrg_" %%SLAMRG %SLAMRG)
                      ("SLAMSWLQ" "slamswlq_" %%SLAMSWLQ %SLAMSWLQ)
                      ("SLAMTSQR" "slamtsqr_" %%SLAMTSQR %SLAMTSQR)
                      ("SLANEG" "slaneg_" %%SLANEG %SLANEG)
                      ("SLANGB" "slangb_" %%SLANGB %SLANGB)
                      ("SLANGE" "slange_" %%SLANGE %SLANGE)
                      ("SLANGT" "slangt_" %%SLANGT %SLANGT)
                      ("SLANHS" "slanhs_" %%SLANHS %SLANHS)
                      ("SLANSB" "slansb_" %%SLANSB %SLANSB)
                      ("SLANSF" "slansf_" %%SLANSF %SLANSF)
                      ("SLANSP" "slansp_" %%SLANSP %SLANSP)
                      ("SLANST" "slanst_" %%SLANST %SLANST)
                      ("SLANSY" "slansy_" %%SLANSY %SLANSY)
                      ("SLANTB" "slantb_" %%SLANTB %SLANTB)
                      ("SLANTP" "slantp_" %%SLANTP %SLANTP)
                      ("SLANTR" "slantr_" %%SLANTR %SLANTR)
                      ("SLANV2" "slanv2_" %%SLANV2 %SLANV2)
                      ("SLAPLL" "slapll_" %%SLAPLL %SLAPLL)
                      ("SLAPMR" "slapmr_" %%SLAPMR %SLAPMR)
                      ("SLAPMT" "slapmt_" %%SLAPMT %SLAPMT)
                      ("SLAPY2" "slapy2_" %%SLAPY2 %SLAPY2)
                      ("SLAPY3" "slapy3_" %%SLAPY3 %SLAPY3)
                      ("SLAQGB" "slaqgb_" %%SLAQGB %SLAQGB)
                      ("SLAQGE" "slaqge_" %%SLAQGE %SLAQGE)
                      ("SLAQP2" "slaqp2_" %%SLAQP2 %SLAQP2)
                      ("SLAQPS" "slaqps_" %%SLAQPS %SLAQPS)
                      ("SLAQR0" "slaqr0_" %%SLAQR0 %SLAQR0)
                      ("SLAQR1" "slaqr1_" %%SLAQR1 %SLAQR1)
                      ("SLAQR2" "slaqr2_" %%SLAQR2 %SLAQR2)
                      ("SLAQR3" "slaqr3_" %%SLAQR3 %SLAQR3)
                      ("SLAQR4" "slaqr4_" %%SLAQR4 %SLAQR4)
                      ("SLAQR5" "slaqr5_" %%SLAQR5 %SLAQR5)
                      ("SLAQSB" "slaqsb_" %%SLAQSB %SLAQSB)
                      ("SLAQSP" "slaqsp_" %%SLAQSP %SLAQSP)
                      ("SLAQSY" "slaqsy_" %%SLAQSY %SLAQSY)
                      ("SLAQTR" "slaqtr_" %%SLAQTR %SLAQTR)
                      ("SLAR1V" "slar1v_" %%SLAR1V %SLAR1V)
                      ("SLAR2V" "slar2v_" %%SLAR2V %SLAR2V)
                      ("SLARF" "slarf_" %%SLARF %SLARF)
                      ("SLARFB" "slarfb_" %%SLARFB %SLARFB)
                      ("SLARFG" "slarfg_" %%SLARFG %SLARFG)
                      ("SLARFGP" "slarfgp_" %%SLARFGP %SLARFGP)
                      ("SLARFT" "slarft_" %%SLARFT %SLARFT)
                      ("SLARFX" "slarfx_" %%SLARFX %SLARFX)
                      ("SLARFY" "slarfy_" %%SLARFY %SLARFY)
                      ("SLARGV" "slargv_" %%SLARGV %SLARGV)
                      ("SLARNV" "slarnv_" %%SLARNV %SLARNV)
                      ("SLARRA" "slarra_" %%SLARRA %SLARRA)
                      ("SLARRB" "slarrb_" %%SLARRB %SLARRB)
                      ("SLARRC" "slarrc_" %%SLARRC %SLARRC)
                      ("SLARRD" "slarrd_" %%SLARRD %SLARRD)
                      ("SLARRE" "slarre_" %%SLARRE %SLARRE)
                      ("SLARRF" "slarrf_" %%SLARRF %SLARRF)
                      ("SLARRJ" "slarrj_" %%SLARRJ %SLARRJ)
                      ("SLARRK" "slarrk_" %%SLARRK %SLARRK)
                      ("SLARRR" "slarrr_" %%SLARRR %SLARRR)
                      ("SLARRV" "slarrv_" %%SLARRV %SLARRV)
                      ("SLARSCL2" "slarscl2_" %%SLARSCL2 %SLARSCL2)
                      ("SLARTG" "slartg_" %%SLARTG %SLARTG)
                      ("SLARTGP" "slartgp_" %%SLARTGP %SLARTGP)
                      ("SLARTGS" "slartgs_" %%SLARTGS %SLARTGS)
                      ("SLARTV" "slartv_" %%SLARTV %SLARTV)
                      ("SLARUV" "slaruv_" %%SLARUV %SLARUV)
                      ("SLARZ" "slarz_" %%SLARZ %SLARZ)
                      ("SLARZB" "slarzb_" %%SLARZB %SLARZB)
                      ("SLARZT" "slarzt_" %%SLARZT %SLARZT)
                      ("SLAS2" "slas2_" %%SLAS2 %SLAS2)
                      ("SLASCL" "slascl_" %%SLASCL %SLASCL)
                      ("SLASCL2" "slascl2_" %%SLASCL2 %SLASCL2)
                      ("SLASD0" "slasd0_" %%SLASD0 %SLASD0)
                      ("SLASD1" "slasd1_" %%SLASD1 %SLASD1)
                      ("SLASD2" "slasd2_" %%SLASD2 %SLASD2)
                      ("SLASD3" "slasd3_" %%SLASD3 %SLASD3)
                      ("SLASD4" "slasd4_" %%SLASD4 %SLASD4)
                      ("SLASD5" "slasd5_" %%SLASD5 %SLASD5)
                      ("SLASD6" "slasd6_" %%SLASD6 %SLASD6)
                      ("SLASD7" "slasd7_" %%SLASD7 %SLASD7)
                      ("SLASD8" "slasd8_" %%SLASD8 %SLASD8)))

(COMMON-LISP:EXPORT
 '(%ILASLR %ILATRANS %ILAUPLO %ILAZLC %ILAZLR %IPARMQ %IZMAX1 %LSAMEN %SBBCSD
           %SBDSDC %SBDSQR %SBDSVDX %SCOMBSSQ %SCSUM1 %SDISNA %SGBBRD %SGBCON
           %SGBEQU %SGBEQUB %SGBRFS %SGBRFSX %SGBSV %SGBSVX %SGBSVXX %SGBTF2
           %SGBTRF %SGBTRS %SGEBAK %SGEBAL %SGEBD2 %SGEBRD %SGECON %SGEEQU
           %SGEEQUB %SGEES %SGEESX %SGEEV %SGEEVX %SGEHD2 %SGEHRD %SGEJSV
           %SGELQ %SGELQ2 %SGELQF %SGELQT %SGELQT3 %SGELS %SGELSD %SGELSS
           %SGELSY %SGEMLQ %SGEMLQT %SGEMQR %SGEMQRT %SGEQL2 %SGEQLF %SGEQP3
           %SGEQR %SGEQR2 %SGEQR2P %SGEQRF %SGEQRFP %SGEQRT %SGEQRT2 %SGEQRT3
           %SGERFS %SGERFSX %SGERQ2 %SGERQF %SGESC2 %SGESDD %SGESV %SGESVD
           %SGESVDQ %SGESVDX %SGESVJ %SGESVX %SGESVXX %SGETC2 %SGETF2 %SGETRF
           %SGETRF2 %SGETRI %SGETRS %SGETSLS %SGGBAK %SGGBAL %SGGES %SGGES3
           %SGGESX %SGGEV %SGGEV3 %SGGEVX %SGGGLM %SGGHD3 %SGGHRD %SGGLSE
           %SGGQRF %SGGRQF %SGGSVD3 %SGGSVP3 %SGSVJ0 %SGSVJ1 %SGTCON %SGTRFS
           %SGTSV %SGTSVX %SGTTRF %SGTTRS %SGTTS2 %SHGEQZ %SHSEIN %SHSEQR
           %SISNAN %SLA_GBAMV %SLA_GBRCOND %SLA_GBRFSX_EXTENDED %SLA_GBRPVGRW
           %SLA_GEAMV %SLA_GERCOND %SLA_GERFSX_EXTENDED %SLA_GERPVGRW
           %SLA_LIN_BERR %SLA_PORCOND %SLA_PORFSX_EXTENDED %SLA_PORPVGRW
           %SLA_SYAMV %SLA_SYRCOND %SLA_SYRFSX_EXTENDED %SLA_SYRPVGRW
           %SLA_WWADDW %SLABAD %SLABRD %SLACN2 %SLACON %SLACPY %SLADIV %SLAE2
           %SLAEBZ %SLAED0 %SLAED1 %SLAED2 %SLAED3 %SLAED4 %SLAED5 %SLAED6
           %SLAED7 %SLAED8 %SLAED9 %SLAEDA %SLAEIN %SLAEV2 %SLAEXC %SLAG2
           %SLAG2D %SLAGS2 %SLAGTF %SLAGTM %SLAGTS %SLAGV2 %SLAHQR %SLAHR2
           %SLAIC1 %SLAISNAN %SLALN2 %SLALS0 %SLALSA %SLALSD %SLAMRG %SLAMSWLQ
           %SLAMTSQR %SLANEG %SLANGB %SLANGE %SLANGT %SLANHS %SLANSB %SLANSF
           %SLANSP %SLANST %SLANSY %SLANTB %SLANTP %SLANTR %SLANV2 %SLAPLL
           %SLAPMR %SLAPMT %SLAPY2 %SLAPY3 %SLAQGB %SLAQGE %SLAQP2 %SLAQPS
           %SLAQR0 %SLAQR1 %SLAQR2 %SLAQR3 %SLAQR4 %SLAQR5 %SLAQSB %SLAQSP
           %SLAQSY %SLAQTR %SLAR1V %SLAR2V %SLARF %SLARFB %SLARFG %SLARFGP
           %SLARFT %SLARFX %SLARFY %SLARGV %SLARNV %SLARRA %SLARRB %SLARRC
           %SLARRD %SLARRE %SLARRF %SLARRJ %SLARRK %SLARRR %SLARRV %SLARSCL2
           %SLARTG %SLARTGP %SLARTGS %SLARTV %SLARUV %SLARZ %SLARZB %SLARZT
           %SLAS2 %SLASCL %SLASCL2 %SLASD0 %SLASD1 %SLASD2 %SLASD3 %SLASD4
           %SLASD5 %SLASD6 %SLASD7 %SLASD8)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
